(* Content-type: application/vnd.wolfram.mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 11.3' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[     60126,       1301]
NotebookOptionsPosition[     58356,       1261]
NotebookOutlinePosition[     58735,       1278]
CellTagsIndexPosition[     58692,       1275]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell["\:7b2c\:56db\:7ae0\:8bd5\:9a8c\:573a", "Title",
 CellChangeTimes->{{3.785231808208144*^9, 
  3.7852318150054517`*^9}},ExpressionUUID->"ff435bba-f38c-48e1-b942-\
dd3a466cd22d"],

Cell[CellGroupData[{

Cell[TextData[{
 StyleBox["Numerov",
  IgnoreSpellCheck->True],
 "\:7b97\:6cd5\:ff08\:6210\:529f\:ff09"
}], "Section",
 CellChangeTimes->{{3.7852318819048557`*^9, 3.78523189123918*^9}, {
  3.7852353376667776`*^9, 
  3.7852353397691555`*^9}},ExpressionUUID->"bd7674ed-f927-4b5f-b63e-\
c348bb7f9e14"],

Cell[BoxData[
 RowBox[{
  RowBox[{"Numerov", "[", 
   RowBox[{
   "k_", ",", "S_", ",", "y0_", ",", "v0_", ",", "h_", ",", "start_", ",", 
    "end_"}], "]"}], ":=", 
  RowBox[{"Module", "[", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"y", ",", "c", ",", "i", ",", "t", ",", "p"}], "}"}], ",", 
    "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"c", "=", 
      RowBox[{
       RowBox[{"IntegerPart", "[", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"end", "-", "start"}], ")"}], "/", "h"}], "]"}], "+", 
       "1"}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"y", "=", 
      RowBox[{"Table", "[", 
       RowBox[{"0", ",", 
        RowBox[{"{", 
         RowBox[{"i", ",", "1", ",", "c"}], "}"}]}], "]"}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"y", "[", 
       RowBox[{"[", "1", "]"}], "]"}], "=", "y0"}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"y", "[", 
       RowBox[{"[", "2", "]"}], "]"}], "=", 
      RowBox[{"y0", "+", 
       RowBox[{"h", "*", "v0"}]}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"For", "[", 
      RowBox[{
       RowBox[{"i", "=", "2"}], ",", 
       RowBox[{"i", "<", "c"}], ",", 
       RowBox[{"i", "++"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"y", "[", 
          RowBox[{"[", 
           RowBox[{"i", "+", "1"}], "]"}], "]"}], "=", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{"2.", 
             RowBox[{"(", 
              RowBox[{"1", "-", 
               RowBox[{"5.", 
                RowBox[{
                 RowBox[{"(", 
                  RowBox[{"k", "[", 
                   RowBox[{
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{"i", "-", "1"}], ")"}], "*", "h"}], "+", 
                    "start"}], "]"}], ")"}], "^", "2"}], "*", 
                RowBox[{
                 RowBox[{"h", "^", "2"}], "/", "12."}]}]}], ")"}], "*", 
             RowBox[{"y", "[", 
              RowBox[{"[", "i", "]"}], "]"}]}], "-", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"1.", "+", 
               RowBox[{
                RowBox[{"h", "^", "2"}], "*", 
                RowBox[{
                 RowBox[{
                  RowBox[{"(", 
                   RowBox[{"k", "[", 
                    RowBox[{
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{"i", "-", "2"}], ")"}], "*", "h"}], "+", 
                    "start"}], "]"}], ")"}], "^", "2"}], "/", "12."}]}]}], 
              ")"}], "*", 
             RowBox[{"y", "[", 
              RowBox[{"[", 
               RowBox[{"i", "-", "1"}], "]"}], "]"}]}], "+", 
            RowBox[{
             RowBox[{
              RowBox[{"h", "^", "2"}], "/", "12."}], "*", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"S", "[", 
                RowBox[{
                 RowBox[{"i", "*", "h"}], "+", "start"}], "]"}], "+", 
               RowBox[{"10", 
                RowBox[{"S", "[", 
                 RowBox[{
                  RowBox[{
                   RowBox[{"(", 
                    RowBox[{"i", "-", "1"}], ")"}], "*", "h"}], "+", 
                  "start"}], "]"}]}], "+", 
               RowBox[{"S", "[", 
                RowBox[{
                 RowBox[{
                  RowBox[{"(", 
                   RowBox[{"i", "-", "2"}], ")"}], "*", "h"}], "+", "start"}],
                 "]"}]}], ")"}]}]}], ")"}], "/", 
          RowBox[{"(", 
           RowBox[{"1.", "+", 
            RowBox[{
             RowBox[{"h", "^", "2"}], "*", 
             RowBox[{
              RowBox[{
               RowBox[{"(", 
                RowBox[{"k", "[", 
                 RowBox[{
                  RowBox[{"i", "*", "h"}], "+", "start"}], "]"}], ")"}], "^", 
               "2"}], "/", "12."}]}]}], ")"}]}]}], "}"}]}], "]"}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"t", "=", 
      RowBox[{"Table", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"h", "*", 
          RowBox[{"(", 
           RowBox[{"i", "-", "1"}], ")"}]}], "+", "start"}], ",", 
        RowBox[{"{", 
         RowBox[{"i", ",", "1", ",", "c"}], "}"}]}], "]"}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"p", "=", 
      RowBox[{"Transpose", "[", 
       RowBox[{"{", 
        RowBox[{"t", ",", "y"}], "}"}], "]"}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"Return", "[", "p", "]"}], ";"}]}], "\[IndentingNewLine]", 
   "]"}]}]], "Input",
 CellChangeTimes->{{3.785231900605791*^9, 3.785231923912979*^9}, {
   3.7852319626922097`*^9, 3.7852320533315287`*^9}, {3.7852320858237443`*^9, 
   3.7852321744167805`*^9}, {3.785232249616578*^9, 3.7852323345896597`*^9}, {
   3.785232517650257*^9, 3.7852325393312545`*^9}, {3.785232707599902*^9, 
   3.7852329054976645`*^9}, {3.7852329555391903`*^9, 3.785233317768796*^9}, {
   3.785233466800147*^9, 3.7852334706249485`*^9}, {3.785233522488075*^9, 
   3.7852335469406796`*^9}, {3.785233720752192*^9, 3.785233735678274*^9}, {
   3.7852338146518464`*^9, 3.785233854055289*^9}, {3.7852342510993032`*^9, 
   3.78523434287187*^9}, {3.7852345255192504`*^9, 3.7852345336205845`*^9}, {
   3.785234628579766*^9, 3.7852346318460693`*^9}, {3.7852347195791836`*^9, 
   3.785234735157522*^9}, 3.7852347767353263`*^9, {3.785234924875177*^9, 
   3.7852350394405785`*^9}, {3.7852350764082227`*^9, 3.785235078186467*^9}, {
   3.785235313851272*^9, 3.785235314329992*^9}},
 CellLabel->"In[24]:=",ExpressionUUID->"95fe7dfb-b3bf-4409-bdae-67006a018242"]
}, Open  ]],

Cell[CellGroupData[{

Cell["\:6253\:9776\:6cd5+\:641c\:7d22\:6cd5\:ff08\:6210\:529f\:ff09", \
"Section",
 CellChangeTimes->{
  3.7852362513585253`*^9, {3.785236658234703*^9, 3.7852366620066175`*^9}, {
   3.7852868532005672`*^9, 3.785286862613394*^9}, {3.7854978940557365`*^9, 
   3.7854978975653515`*^9}},ExpressionUUID->"01d501dd-f91e-4e11-8a01-\
26f29163aa84"],

Cell[BoxData[
 RowBox[{
  RowBox[{"Numerove", "[", 
   RowBox[{
   "kk_", ",", "SS_", ",", "y0_", ",", "v0_", ",", "h_", ",", "start_", ",", 
    "end_"}], "]"}], ":=", 
  RowBox[{"Module", "[", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
     "y", ",", "c", ",", "i", ",", "t", ",", "k", ",", "p", ",", "S"}], "}"}],
     ",", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"S", "=", 
      RowBox[{"SS", "&"}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"k", "=", 
      RowBox[{"kk", "&"}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"c", "=", 
      RowBox[{
       RowBox[{"IntegerPart", "[", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"end", "-", "start"}], ")"}], "/", "h"}], "]"}], "+", 
       "1"}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"y", "=", 
      RowBox[{"Table", "[", 
       RowBox[{"0", ",", 
        RowBox[{"{", 
         RowBox[{"i", ",", "1", ",", "c"}], "}"}]}], "]"}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"y", "[", 
       RowBox[{"[", "1", "]"}], "]"}], "=", "y0"}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"y", "[", 
       RowBox[{"[", "2", "]"}], "]"}], "=", 
      RowBox[{"y0", "+", 
       RowBox[{"h", "*", "v0"}]}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"For", "[", 
      RowBox[{
       RowBox[{"i", "=", "2"}], ",", 
       RowBox[{"i", "<", "c"}], ",", 
       RowBox[{"i", "++"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"y", "[", 
          RowBox[{"[", 
           RowBox[{"i", "+", "1"}], "]"}], "]"}], "=", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{"2.", 
             RowBox[{"(", 
              RowBox[{"1", "-", 
               RowBox[{"5.", 
                RowBox[{
                 RowBox[{"(", 
                  RowBox[{"k", "[", 
                   RowBox[{
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{"i", "-", "1"}], ")"}], "*", "h"}], "+", 
                    "start"}], "]"}], ")"}], "^", "2"}], "*", 
                RowBox[{
                 RowBox[{"h", "^", "2"}], "/", "12."}]}]}], ")"}], "*", 
             RowBox[{"y", "[", 
              RowBox[{"[", "i", "]"}], "]"}]}], "-", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"1.", "+", 
               RowBox[{
                RowBox[{"h", "^", "2"}], "*", 
                RowBox[{
                 RowBox[{
                  RowBox[{"(", 
                   RowBox[{"k", "[", 
                    RowBox[{
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{"i", "-", "2"}], ")"}], "*", "h"}], "+", 
                    "start"}], "]"}], ")"}], "^", "2"}], "/", "12."}]}]}], 
              ")"}], "*", 
             RowBox[{"y", "[", 
              RowBox[{"[", 
               RowBox[{"i", "-", "1"}], "]"}], "]"}]}], "+", 
            RowBox[{
             RowBox[{
              RowBox[{"h", "^", "2"}], "/", "12."}], "*", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"S", "[", 
                RowBox[{
                 RowBox[{"i", "*", "h"}], "+", "start"}], "]"}], "+", 
               RowBox[{"10", 
                RowBox[{"S", "[", 
                 RowBox[{
                  RowBox[{
                   RowBox[{"(", 
                    RowBox[{"i", "-", "1"}], ")"}], "*", "h"}], "+", 
                  "start"}], "]"}]}], "+", 
               RowBox[{"S", "[", 
                RowBox[{
                 RowBox[{
                  RowBox[{"(", 
                   RowBox[{"i", "-", "2"}], ")"}], "*", "h"}], "+", "start"}],
                 "]"}]}], ")"}]}]}], ")"}], "/", 
          RowBox[{"(", 
           RowBox[{"1.", "+", 
            RowBox[{
             RowBox[{"h", "^", "2"}], "*", 
             RowBox[{
              RowBox[{
               RowBox[{"(", 
                RowBox[{"k", "[", 
                 RowBox[{
                  RowBox[{"i", "*", "h"}], "+", "start"}], "]"}], ")"}], "^", 
               "2"}], "/", "12."}]}]}], ")"}]}]}], "}"}]}], "]"}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"t", "=", 
      RowBox[{"Table", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"h", "*", 
          RowBox[{"(", 
           RowBox[{"i", "-", "1"}], ")"}]}], "+", "start"}], ",", 
        RowBox[{"{", 
         RowBox[{"i", ",", "1", ",", "c"}], "}"}]}], "]"}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"Return", "[", "y", "]"}], ";"}]}], "\[IndentingNewLine]", 
   "]"}]}]], "Input",
 CellLabel->"In[25]:=",ExpressionUUID->"7ba51f49-8c36-4982-ba29-4478306f1160"],

Cell[BoxData[
 RowBox[{
  RowBox[{"Shooting", "[", 
   RowBox[{
   "start_", ",", "end_", ",", "valstart_", ",", "y0_", ",", "v0_", ",", 
    "bs_", ",", "S_", ",", "kkh_", ",", "ops_", ",", "h_"}], "]"}], ":=", 
  "\[IndentingNewLine]", 
  RowBox[{"Module", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"K", ",", "y", ",", "y1", ",", "y2", ",", "o", ",", "kh"}], 
     "}"}], ",", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"kh", "=", "kkh"}], ";", "\[IndentingNewLine]", 
     RowBox[{"K", "=", "valstart"}], ";", "\[IndentingNewLine]", 
     RowBox[{"y1", "=", 
      RowBox[{"Numerove", "[", 
       RowBox[{
       "K", ",", "S", ",", "y0", ",", "v0", ",", "h", ",", "start", ",", 
        "end"}], "]"}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"o", "=", "1"}], ";", "\[IndentingNewLine]", 
     RowBox[{"While", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"Abs", "[", 
         RowBox[{
          RowBox[{"Last", "[", "y1", "]"}], "-", "bs"}], "]"}], ">", "ops"}], 
       ",", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"y1", "=", 
           RowBox[{"Numerove", "[", 
            RowBox[{
            "K", ",", "S", ",", "y0", ",", "v0", ",", "h", ",", "start", ",", 
             "end"}], "]"}]}], ",", 
          RowBox[{"y2", "=", 
           RowBox[{"Numerove", "[", 
            RowBox[{
             RowBox[{"K", "+", "kh"}], ",", "S", ",", "y0", ",", "v0", ",", 
             "h", ",", "start", ",", "end"}], "]"}]}], ",", 
          RowBox[{"If", "[", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"(", 
               RowBox[{
                RowBox[{"Last", "[", "y1", "]"}], "-", "bs"}], ")"}], "*", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"Last", "[", "y2", "]"}], "-", "bs"}], ")"}]}], ">", 
             "0"}], ",", 
            RowBox[{"{", 
             RowBox[{"K", "=", 
              RowBox[{"K", "+", "kh"}]}], "}"}], ",", 
            RowBox[{"If", "[", 
             RowBox[{
              RowBox[{
               RowBox[{
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"Last", "[", "y1", "]"}], "-", "bs"}], ")"}], "*", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"Last", "[", "y2", "]"}], "-", "bs"}], ")"}]}], "<",
                "0"}], ",", 
              RowBox[{"kh", "=", 
               RowBox[{"0.5", "kh"}]}], ",", "Break"}], "]"}]}], "]"}]}], 
         "}"}], ";", 
        RowBox[{"o", "++"}]}]}], "]"}], ";", "\[IndentingNewLine]", 
     RowBox[{"Return", "[", "K", "]"}]}]}], "\[IndentingNewLine]", 
   "]"}]}]], "Input",
 CellChangeTimes->CompressedData["
1:eJxTTMoPSmViYGCQBGIQXdKn+eSw8RvHvkU5H0D0746sbyCaY7vOfxDt02PF
dwRI9+Tlg+ki8w2SIPq53B4wPePVNgsQ3bFxkR2I9t3ZPfkGkGZe9gNMX/v1
azqINn0ashhEv7qndwlEi8ywAdOLSl+x3QTSNo9mSIHoReVHFED0LrslyiD6
wJe3miC6ZbOAOVg+4Lc1iD60ocoeRKdNVXAF0WZ57u4gesqXjz4g2mOrgx+I
1tguGASiBdVTw0B0eL1tBYjel5YOptsWidSBaPfKu2A6YMqqEyB6gynTVRDN
lljCcQskPsdAEETL3eU3BtGbrN7agGiV6uBUMH9jWDqIzn2rtQtEH0tR2g2i
T3TcSLoDpCve82aCaLPXYs0g+kRmeDeIfqtWMwFEa9n+nAKiAVHP0GY=
  "],
 CellLabel->"In[20]:=",ExpressionUUID->"a9bbe345-7e2b-4c41-a983-aed52bf87c43"]
}, Open  ]],

Cell[CellGroupData[{

Cell["\:6253\:9776\:6cd5\:6c42\:89e3\:859b\:5b9a\:8c14\:65b9\:7a0b", "Section",
 CellChangeTimes->{{3.786790645586553*^9, 
  3.7867906570758796`*^9}},ExpressionUUID->"4782db9a-ab4c-4f03-8bda-\
323eb463de58"],

Cell[BoxData[
 RowBox[{
  RowBox[{"ShootingMiddle", "[", 
   RowBox[{"estart_", ",", "ddh_", ",", "ops_"}], "]"}], ":=", 
  "\[IndentingNewLine]", 
  RowBox[{"Module", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
     "y", ",", "e", ",", "xm", ",", "y1", ",", "y2", ",", "y11", ",", "y22", 
      ",", "delta", ",", "old", ",", "dh"}], "}"}], ",", 
    "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"dh", "=", "ddh"}], ";", "\[IndentingNewLine]", 
     RowBox[{"e", "=", "estart"}], ";", "\[IndentingNewLine]", 
     RowBox[{"xm", "=", 
      RowBox[{"-", 
       RowBox[{"Sqrt", "[", 
        RowBox[{"e", "+", "1"}], "]"}]}]}], ";", "\n", 
     RowBox[{"(*", "\:8854\:63a5\:70b9", "*)"}], "\[IndentingNewLine]", 
     RowBox[{"old", "=", "1"}], ";", "\[IndentingNewLine]", 
     RowBox[{"delta", "=", "0.1"}], ";", "\[IndentingNewLine]", 
     RowBox[{"While", "[", 
      RowBox[{
       RowBox[{"delta", ">", "ops"}], 
       RowBox[{"(*", 
        RowBox[{"||", 
         RowBox[{
          RowBox[{"Abs", "[", 
           RowBox[{
            RowBox[{"D", "[", 
             RowBox[{"y1", ",", "Left"}], "]"}], "-", 
            RowBox[{"D", "[", 
             RowBox[{"y2", ",", "Right"}], "]"}]}], "]"}], "<", "ops"}]}], 
        "*)"}], ",", 
       RowBox[{"{", "\n", 
        RowBox[{
        "(*", "While\:5faa\:73af\:7684\:6761\:4ef6\:662f\:6570\:503c\:5dee\
\:6ca1\:6709\:5c0f\:4e8e\:5141\:8bb8\:504f\:5dee\:6216\:5bfc\:6570\:5dee\:6ca1\
\:6709\:5c0f\:4e8e\:5141\:8bb8\:504f\:5dee", "*)"}], "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"y1", "=", 
          RowBox[{"NDSolve", "[", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{
              RowBox[{
               RowBox[{
                RowBox[{
                 RowBox[{"y", "''"}], "[", "t", "]"}], "+", 
                RowBox[{
                 RowBox[{"50", "^", "2"}], "*", 
                 RowBox[{"(", 
                  RowBox[{"e", "-", 
                   RowBox[{
                    RowBox[{"t", "^", "2"}], "/", "2"}], "+", "1"}], ")"}], 
                 "*", 
                 RowBox[{"y", "[", "t", "]"}]}]}], "\[Equal]", "0"}], ",", 
              RowBox[{
               RowBox[{"y", "[", 
                RowBox[{"-", "1"}], "]"}], "\[Equal]", "0"}], ",", 
              RowBox[{
               RowBox[{
                RowBox[{"y", "'"}], "[", 
                RowBox[{"-", "1"}], "]"}], "\[Equal]", 
               RowBox[{"-", "0.001"}]}]}], "}"}], ",", "y", ",", 
            RowBox[{"{", 
             RowBox[{"t", ",", 
              RowBox[{"-", "1"}], ",", "xm"}], "}"}]}], "]"}]}], ";", 
         "\[IndentingNewLine]", 
         RowBox[{"y2", "=", 
          RowBox[{"NDSolve", "[", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{
              RowBox[{
               RowBox[{
                RowBox[{
                 RowBox[{"y", "''"}], "[", "t", "]"}], "+", 
                RowBox[{
                 RowBox[{"50", "^", "2"}], "*", 
                 RowBox[{"(", 
                  RowBox[{"e", "-", 
                   RowBox[{
                    RowBox[{"t", "^", "2"}], "/", "2"}], "+", "1"}], ")"}], 
                 "*", 
                 RowBox[{"y", "[", "t", "]"}]}]}], "\[Equal]", "0"}], ",", 
              RowBox[{
               RowBox[{"y", "[", "1", "]"}], "\[Equal]", "0"}], ",", 
              RowBox[{
               RowBox[{
                RowBox[{"y", "'"}], "[", "1", "]"}], "\[Equal]", 
               RowBox[{"-", "0.001"}]}]}], "}"}], ",", "y", ",", 
            RowBox[{"{", 
             RowBox[{"t", ",", "xm", ",", "1"}], "}"}]}], "]"}]}], ";", 
         "\[IndentingNewLine]", 
         RowBox[{
         "(*", "\:5206\:522b\:4ece\:5de6\:53f3\:5411\:4e2d\:95f4\:79ef\:5206",
           "*)"}], "\n", 
         RowBox[{"y11", "=", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"y", "/.", 
             RowBox[{"y1", "[", 
              RowBox[{"[", 
               RowBox[{"1", ",", "1"}], "]"}], "]"}]}], ")"}], "[", "xm", 
           "]"}]}], ";", "\[IndentingNewLine]", 
         RowBox[{"y22", "=", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"y", "/.", 
             RowBox[{"y2", "[", 
              RowBox[{"[", 
               RowBox[{"1", ",", "1"}], "]"}], "]"}]}], ")"}], "[", "xm", 
           "]"}]}], ";", "\[IndentingNewLine]", 
         RowBox[{"delta", "=", 
          RowBox[{"Abs", "[", 
           RowBox[{"y11", "-", "y22"}], "]"}]}], ";", "\n", 
         RowBox[{"(*", "\:503c\:76f8\:7b49\:6761\:4ef6", "*)"}], "\n", 
         RowBox[{
         "(*", "\:5bfc\:6570\:503c\:76f8\:7b49\:6761\:4ef6\:5df2\:7ecf\:5728\
While\:4e2d\:7ed9\:51fa", "*)"}], "\[IndentingNewLine]", 
         RowBox[{"If", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"old", "*", 
             RowBox[{"(", 
              RowBox[{"y11", "-", "y22"}], ")"}]}], ">", "0"}], ",", 
           "\[IndentingNewLine]", 
           RowBox[{"e", "=", 
            RowBox[{"e", "+", "dh"}]}], ",", "\[IndentingNewLine]", 
           RowBox[{"If", "[", 
            RowBox[{
             RowBox[{
              RowBox[{"old", "*", 
               RowBox[{"(", 
                RowBox[{"y11", "-", "y22"}], ")"}]}], "<", "0"}], ",", 
             RowBox[{"dh", "=", 
              RowBox[{"0.5", "dh"}]}], ",", "Break"}], "]"}]}], "]"}], ";", 
         "\[IndentingNewLine]", 
         RowBox[{"old", "=", 
          RowBox[{"y11", "-", "y22"}]}], ";", "\[IndentingNewLine]", 
         RowBox[{"xm", "=", 
          RowBox[{"Sqrt", "[", 
           RowBox[{"e", "+", "1"}], "]"}]}], ";"}], "}"}]}], "]"}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"(*", "If\:8bed\:53e5\:5b9e\:73b0\:641c\:7d22\:6cd5", "*)"}], 
     "\n", 
     RowBox[{"Return", "[", "e", "]"}]}]}], "\n", 
   RowBox[{"(*", "\:8fd4\:56de\:672c\:5f81\:503c", "*)"}], 
   "\[IndentingNewLine]", "]"}]}]], "Code",
 CellChangeTimes->{3.7867906925879726`*^9},
 CellLabel->"In[1]:=",ExpressionUUID->"26bc0383-1a0c-4855-81ef-2edf548e40e2"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ShootingMiddle", "[", 
  RowBox[{
   RowBox[{"-", "0.8"}], ",", "0.01", ",", 
   RowBox[{"10", "^", 
    RowBox[{"-", "6"}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.7863989683560886`*^9, 3.7863989954547987`*^9}},
 CellLabel->"In[2]:=",ExpressionUUID->"589af2ad-1f20-4e2f-903f-8a49259e5485"],

Cell[BoxData[
 RowBox[{"-", "0.6746874999999999`"}]], "Output",
 CellChangeTimes->{3.78679070630052*^9},
 CellLabel->"Out[2]=",ExpressionUUID->"8f55ef64-b002-465d-ac9f-42908594fdf1"]
}, Open  ]],

Cell["\:5b9a\:4e49\:4e00\:4e2a\:753b\:56fe\:51fd\:6570\:6765\:7ed8\:5236\:51fa\
\:6253\:9776\:6cd5\:4ece\:4e24\:4e2a\:65b9\:5411\:51fa\:53d1\:6253\:5411\:4e2d\
\:95f4\:7684\:56fe\:3002", "Text",
 CellChangeTimes->{{3.786790750562545*^9, 
  3.786790794752252*^9}},ExpressionUUID->"4e85c11b-8c76-4da7-8997-\
af285773c346"],

Cell[BoxData[
 RowBox[{
  RowBox[{"Plott", "[", 
   RowBox[{"e_", ",", "j_"}], "]"}], ":=", 
  RowBox[{"Module", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"y1", ",", "y2", ",", "xm"}], "}"}], ",", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"xm", "=", 
      RowBox[{"-", 
       RowBox[{"Sqrt", "[", 
        RowBox[{"e", "+", "1"}], "]"}]}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"y1", "=", 
      RowBox[{"NDSolve", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{"y", "''"}], "[", "t", "]"}], "+", 
            RowBox[{
             RowBox[{"50", "^", "2"}], "*", 
             RowBox[{"(", 
              RowBox[{"e", "-", 
               RowBox[{
                RowBox[{"t", "^", "2"}], "/", "2"}], "+", "1"}], ")"}], "*", 
             RowBox[{"y", "[", "t", "]"}]}]}], "\[Equal]", "0"}], ",", 
          RowBox[{
           RowBox[{"y", "[", 
            RowBox[{"-", "1"}], "]"}], "\[Equal]", "0"}], ",", 
          RowBox[{
           RowBox[{
            RowBox[{"y", "'"}], "[", 
            RowBox[{"-", "1"}], "]"}], "\[Equal]", 
           RowBox[{"-", "j"}]}]}], "}"}], ",", "y", ",", 
        RowBox[{"{", 
         RowBox[{"t", ",", 
          RowBox[{"-", "1"}], ",", "xm"}], "}"}]}], "]"}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"y2", "=", 
      RowBox[{"NDSolve", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{"y", "''"}], "[", "t", "]"}], "+", 
            RowBox[{
             RowBox[{"50", "^", "2"}], "*", 
             RowBox[{"(", 
              RowBox[{"e", "-", 
               RowBox[{
                RowBox[{"t", "^", "2"}], "/", "2"}], "+", "1"}], ")"}], "*", 
             RowBox[{"y", "[", "t", "]"}]}]}], "\[Equal]", "0"}], ",", 
          RowBox[{
           RowBox[{"y", "[", "1", "]"}], "\[Equal]", "0"}], ",", 
          RowBox[{
           RowBox[{
            RowBox[{"y", "'"}], "[", "1", "]"}], "\[Equal]", 
           RowBox[{"-", "j"}]}]}], "}"}], ",", "y", ",", 
        RowBox[{"{", 
         RowBox[{"t", ",", "xm", ",", "1"}], "}"}]}], "]"}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"Show", "[", 
      RowBox[{
       RowBox[{"Plot", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"y", "[", "t", "]"}], "/.", 
          RowBox[{"y1", "[", 
           RowBox[{"[", 
            RowBox[{"1", ",", "1"}], "]"}], "]"}]}], ",", 
         RowBox[{"{", 
          RowBox[{"t", ",", 
           RowBox[{"-", "1"}], ",", "xm"}], "}"}], ",", 
         RowBox[{"PlotStyle", "\[Rule]", "Blue"}], ",", 
         RowBox[{"PlotRange", "\[Rule]", "All"}]}], "]"}], ",", 
       RowBox[{"Plot", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"y", "[", "t", "]"}], "/.", 
          RowBox[{"y2", "[", 
           RowBox[{"[", 
            RowBox[{"1", ",", "1"}], "]"}], "]"}]}], ",", 
         RowBox[{"{", 
          RowBox[{"t", ",", "xm", ",", "1"}], "}"}], ",", 
         RowBox[{"PlotStyle", "\[Rule]", "Red"}], ",", 
         RowBox[{"PlotRange", "\[Rule]", "All"}]}], "]"}]}], "]"}]}]}], 
   "]"}]}]], "Code",
 CellLabel->"In[4]:=",ExpressionUUID->"117e7dd2-f870-4b7a-80c5-57a9e9773ab0"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plott", "[", 
  RowBox[{
   RowBox[{"-", "0.6746874999999999`"}], ",", "0.001"}], "]"}]], "Input",
 CellLabel->"In[5]:=",ExpressionUUID->"f732ff2b-9340-478f-b841-774fbc7a375f"],

Cell[BoxData[
 GraphicsBox[{{{{}, {}, 
     TagBox[
      {RGBColor[0, 0, 1], AbsoluteThickness[1.6], Opacity[1.], 
       LineBox[CompressedData["
1:eJwVlnk0Vfsbxl0KlQqVQjRQRInqSsRBOM7ZoSRJdEU0oUEpMlQkXdEgNEhJ
NBkbDOV6hESKJCVROjn7ezJEhjL3+/7+2Guvz1rv3vv9vs/zPmvPc99r7yku
JiY2Rq//3zva+MN//nRBbG7o7nHWKf9Ji5xvtY914VVt2tUvWceL1IS7bT6M
dkFzU1gess4XOX/593rmcBc6PqtPe5uVXFRR93KN6+8utM8alQnMzilKLeSf
efKjC3Ki2SvGcp4VbY3hqxxq7oLJ5dUnLHJri2r1+Jy2J11wrW0Knf/ia5Hq
ln2Ccfu6oJPaXXK4rqdor2q6soJWF2TChcrad0aK2FinsAjhDzRFx3BnRUjg
ebs2X+PqDyz1jDbpfTQBd5qn3y7a+AOXHP5SCJksi94cdY+IiT9wJVN+bX7H
NHgYpNpkFHdin3dr7KZls/DByaj65dFOaMcGBnvcno2HWwYyZul1ItXh+C9l
qXmIHXip5tregYCKzMZb79VwmTulQux2B6I3XP0zS7AQUgFHqt65dOCgx728
rggtBFgMbL8+swOdR4ycBGY62NCT5HrlVTvEs0WbrDfqYYN9bnjfiXZM6/Uy
52Uux6a138wsTdrhIMvZ7Silj1LNlVvLe9vQzJuZe77QAMuv35A1yWyDOc+t
0tbLCJMGdOez7m3oK4lq9N1pAmmJZe6ds9rwRqO/oqvAFBPuWBu0131Hmofw
DkfbHAeWRvgonv6OG3/lDJU/XYOWdR8NTNZ8x6eswjxjbUv4qV9bVjImwvQ3
q4y2RVjBt/FUlP8jEXKLm/TjCBc+WpGB8/aKUJgZyPtHngf9F8Wkz0cE78qh
sDkzeRDbPuhQ4S1CQvfJr03KPFy8tnvp3t0iKP5WHbJdwMMTWZvWQk8Run+3
2cka8CD5W87WyUUElfYysfGuPNwovTrvLE8Es8aUX8m3eNjt9i7G3VqEz07d
IrG7PCwflRn5myvCs4QjN1wyeCjXD3nfZCHCg9GdGybm8tB51y1Ky1SEYfef
h0xe8GB4bkH/c30RLG4MzpD6zsM7l6yKETURGr1CBsZp8eFVmPygfr4IJuL1
e1qX8DGgfDExc54IMnufeRXr8aHy6cg+tzki8IKniXxW0frN5rPKlET4cy2p
Msmaj98b63dEyYkwxNE/t9GLDyW7YUmlPwQGiXW7JK7zkZ7Z2d0zSvCszMzJ
9yYfJlNaGqtGCBYoD/jVp/Lh8bosM3iIIFiuV+NSOq1nYhy/9hM4ilSWdxXQ
eut5aXc6CCJM9mz9WsfHNjOu5cpGgroV/utKxjFw+X1+gvpHAv/XHnZHpRg4
ZjS9lm0gUOhLS9edyICveMCxrZ4g5eP0gHNTGaz4mbjjWi3B8VdtiupKDCST
e05LVBJMOyEfelmHwT2xpOqaPIKR3ByxDAcGt3JFFwpzCQZ+hHt1OjJI8l6+
6e5jghc7tggWbWYQ21Dx5cRDgudWytMSXBkEZfd2/51FMGxoqGTuxcDWjTct
MY3g5yS8bPBn0IO+TTvjCI78HaUxeJGBv1xhs/FFgq4n2ZHN8QyG3MM8psXS
8yaWDBdeYiAuKb+36BxB/fYgGZ9EBnJrl0ZMP0MQ9Enj3/MpDHQbdj0qPkHg
tqDh1PdsBo8W6RnGHyfw+f66IPgBA4OjA9hzjEBskKmVecTAVPVUlUIIQdyT
b6nKeQzstt8SeAcQJNeVXhouZODb/VlWcR+B74EF5iUvaL9mafE/fAkiXR+H
S1TSfmN9Zpf5EDhzVx/nvGQQoj+isXcPQYD47mu3XzGIDlLkPPciOPNtxkyD
Wgay1S1lVzwJxmtofrZ9y+DinDv8fdsJkgCeWx2DxBJ9R2V3gpYNDRJ+9QzS
pR189rsSrBFtKtj0kZ7PWbnXyoXq+VPfeU0jPd99wZHZW2h9y45/F31iUGi7
P/yFE8FukUGMsInBq4sxV1UcCEzvqzUqtzBYx26c12tPwHxTSP9E+d1KldsV
6wkej+4aiPvKoKnx/gM/OwK93pf9gwIG7XMrKyv5BCf4PYahQgbvK0SLHvII
Pqfe+iXNMijZJ/1vojWBeNCtN9GUrxRz+XutqD4uKz5EEgYRO3fcc7IkcPK9
8meM8gHZUxPNLQjOThwy3ieifnQrfzndnODc4S19a74z0JdmtcZMCS6ZG+5M
ozw/e3wU4RDInn31XaKNwRSnBe1vTAiWTJU47EJ56I8F88SYYPnmmsnZlNnb
2++nrKZ6itTSxyi/tQufFG1EoDinz866nfr5emnVP6sIemM+Xn9FOZ77TZtn
QBA9o5Er1cHgRJf4mWUr6fdaFneupuybML9DWZ+guKUy2oeyM8d87fi/CXp+
3dW4TNmKbEv/sZzOq7s8H5SXnT0u07CMwOW0MucrZdWVyd7P9Aiq9qbkj1Ke
+KX41T1dgp3mW9RmdDL4FdGy+OJSgoYLpsEalAU6YtHBOrR/dn3ZCsrV7+d0
ei0hkMuP+bWa8pMQjs26xQQVh3/LmVJOW/hPxiptgkFO9HQTyheqQyaraRE4
2K0f0acc4p/kI7OIzvez5QstyrtVi173a9Dv2/r6KVJ2LG9e8mUh9YtmzZg4
ZXPf0eiKBQQ1c3x3ENqvjoLKjxx1Alt5+/vllJWKVtteVSPokw6ruEFZ0ssl
M3w+nYfBxP8OUe6ZHDTFdx7dx3E9EZaUPz++6rtpLsH5YUt1WcovXZ9Wm84h
aG6Sj62n888d/0lHS5UgPN6rNo7yzYyhmGkqBENW65rXUY7ZqNQ1okzw0bjl
kSTlwNFVdqwS9euIhmMe1dcrdXNWjSJB90pDuFO2twmYWjCL+uuD1g9pyouu
5ddEKRAYto/EWVI/TbdsWHpoBsGogcykJuo/sc7fZ7dOJ1h1Y6OJD+WG1SvX
6ckT7K/+8yGU+rWs1TFbSY7g6JJLhn9Rzj7jLztOlubbh48bgqnfI5sev3k/
mSCrpP6mJ92Pg+H1usUyBOsO1r6rbWXgtrj/3N1JBI0Og48NKBsErVgfNIH2
v2RryC+6XyLlh7XzxhMUyOX26tF9TIw4kyk7juB+nNqqw18YrP/pGfVHnObv
sQyHvM9U//JZls1itF7DSEqzmcGZ/SH5l0ZYDLeHalXRfDBt2hR3aphFX/bE
n2wDg34rvQP+QyxiXykeG/3AYOvsVm2HARYDV6b+VHpP8+QF7/rUPharOtK6
FGgeteqpBY31sPjocblKmubV5cQRp86fLNZnl7n319D8PZAlX9XF4v30lYVF
r2l+zJ4REdHO4lelqFOO5mHAgRbvUQGLHOOj3/KLqH+aC3gdX1kE7KzJ3vgf
9Tc3duGnFhZmCjlzOp8yWKti1ZL/mcX+0eZPkwrovlTc33CwkcXYOu+b0g9p
vqgcNmyvZZGSKS43lkrzNnLdzMY3LNRu+plY3GKg3buor6KGxQm5Sf3hN2me
VjRlpL1mEar67Hd/EvWHn/k890oWD3tUtOIT6P5VTpb+WMzi3GD86OtTDKxr
PNKyweJoVd3DmJM0r+oLLCKLWNio3/tiHcZAQuB5fGUhC9GFkXN3QxiMDP03
FJfHIujCPc3Zhxh0LvbttM9ksdVt2+0yNwaLl5dFaWWw4GoeFSpvpfu2SklL
PJ3FtIDkYO8tNJ8sy71y7lL2PfF4cCPdj62qLVNTWcSkzlUo4zN4c6767aur
LFxViP7M5TTvEtT337rCIjcubaOELp3XtcCpQZdZzC7gPBYtZlBxd+Fa7QQW
173H611fyOBZScjz0xdY2Fuf//lEkcGDPp18q9MsDuWrOKSP8RHndPZasT+L
FbXKE3xK+Vj92Fgh/RCLqTaaOiXgQyDXEZNwkIXukwW2coV86FRZH/M9QPUv
mXb02iM+yo3FPWb7Uv+slPL1of8rA/MPaR7xpM97FYvaTvLh0un8cKkDi+qe
mJmO5nyI8ycsVt5A9VLLbxYZ83EnLe+WpD0L+QmeYYfo/1P/P9Pjm+2ofg+c
dwfp8hHz9vWRKIbF0sfZF0xV+SjOMzUh5iwsXhY8Sh7gQf3EwsokPRZSilMH
S+7w4BC4XsJPl8XpF27r56bwEH4gyJi7lEV5s4ab/zUeWt3f5nQtZhGm/iVJ
5gIPKWtCrphqsuDpaVz4GsjD/PHv9whUWcwIDWhdzPAwN/LklIUyLF5uqzlp
xVpDOaZ1QwYrRGZCbnmgpDUeNO3YGScU4qrOiMGJP1zwtduDgluF2DflOTds
gIvAip+pNgIhEswKjA60cdEo/ud3Z7MQ00vLwiSqubhyWDFRp14Iyaq1db2x
XMzaZtuaVSoEd1uS1BRlLhRW5B98cEOIw3qHXbkKVvC37B9/47oQZw9fCG2d
bIUPjssSopOEMF5qk3x0vBUuBaQX7EwU4oP8KpLQZwkl3BhTvSSEuWtafORb
S6jyT0dGnRUifrulMxNtiYVuzonbQ4QQO9aW5TpmAf0zI6UKLkKI6o/oD1Sv
QVH5jgP35YSAkWPQvS5T8K+KcvVftaJa+6JjRp0RTOzPOfcca4VLlMBGIWUF
nJ7eWTx5ZSs0bk7qD1HXgn/R+4uqPd9g6EdK931QwEiKtovb7W8Y2bxI9287
CU6EWnzBpW3fEPrwzlHNr2oc/Y37LXVVvmGz+BGZv+T1OLa7/HQH3grgORog
a29rwNk9MyonN1oA03ODvpVuJpzPN176HT8jwGhyrL1SoAnHXmui/tooAaTy
KuY7x5pwjIxPP/kaKcD5vgbztOcmHBmPU6Uy4QJsz5O97LuIw8nKDKt3DxQg
WiHgdXYnh9NnGTQ4ZYcAKe92fbJ6ZMrZWfP06UdPAervFehUw5TT5DQcfGu7
AN02ib1MlSnn+Z5AcUN3AQqMPudoCUw58eePTPJ0FSD5YfvCg1PNOAbNB1We
bhBgdmTjGd2dZpx0r0dfTtoLMEfe2FvZz4wzt7s3ed16ASbPXGYxEmzGmSDh
t5C1FSDiuV3R9VgzTqPm/qVyfAGMN2SPeReZcWwfZP/8ZC1Ao+XacslKM06p
UffDNK4ANm6N3Pg6+n7bvQarLQUYbAlzjhfR9zdkDklaCPCt978myV4zzsVt
PwprzQWo+aIz7D1qxpFuXxKaaCaAdmlBZoWUOSf4oI/ZDlMBPD7t6laUN+f8
D4RMtos=
        "]]},
      Annotation[#, "Charting`Private`Tag$95405#1"]& ]}, {}, {}}, {{{}, {}, 
     TagBox[
      {RGBColor[1, 0, 0], AbsoluteThickness[1.6], Opacity[1.], 
       LineBox[CompressedData["
1:eJwUmnlcTO8Xx5MoKSIlRVq1077XmZk7TSSypIVoL4SStPrSJqSikISSotKq
tCg67fs6rdM6UyE7LUSq3/z+mtfn9dzznOW5597zft2RdPI85MrJwcHB5OLg
+P9vVmGYkjtpHLmlzZpsN1Cg0ytE4qLhOJrvihusVqfAL5UrQmG64xjmaWlU
fpgClIzA5STVcex4GLba6i4FBh6d7+6TGMfzuy18RAQIWLL1bJzcOo6c6qQ+
pgoB0pvPvp0WGce02++HVPcScC72ZPq6DeOY9c9f2SWcAK4I+yDainEUrmr8
tPSDAEXiuJflIgtvGp62/MxLBQuOY65Of1iom+6230aGComBVhaXf7IQl0fj
849QQc1zn3Qxi4UHe8ltRAEVrJT3itSOsNBbQvzLtkYqXPq4m5/OYKEnRdTA
e4QKjc7U31+7WPju3mnniNUmcMLGoEW2moWmlZ+P7T5kAuFCepUaFSzU8Lvq
NeZsApl07SJyGQtvmTzg/uxjArPm6snHC1hoXbVd6/g9ExDlVb3rkcvCP+Np
N6rTTIDUoHIj4AULfzbhyINCE7hJVrhw7ykL99r0Cz3qMIH8pR0nU5NYWH74
dHPdsAn0lcscf5nIQncxbkn7jyYgpS1h2hbHjsc1I2KUgwa7Z7YZDsWwcFOW
cXTNWhqczRdT+xjJwragR7LCwjQoVdwstiqMhTx3nilwKtBg9MMmAcErLDRa
d/55ohoNVj7buEoyiIW7tmQMJOnRQN5J4O9OPxYevbhr/zoyDfZvX/fd8AIL
hQocEqZMaeAzvHbSzJOF9IB6c5X9NHjwYA3DxoOFh8cGVg0fpkGFFXe7mzsL
x168dp61ocGk4KoaH2cWBqf/4PM9TgPeLs7SUHt2fSUk8hwcabArhiPn9jEW
bg3OXSx0oYHl3qWUJGsWHk+2yPF0p0Egz7/47MMsfLUq4MKdUzR4UvfnZpkF
C/kNd3Jv96BBfejv4Ma97PWv7ZIbz9DgC8xd7DNlYQfPuytn2HrD4vTpSYKF
zNFplgpbhwbbnH4MLNR69OiDIdt+emXFKSsDFv5+YH3/Pnt/p2vSp9brsPCt
SkGxEds/nffGyUZ1Fg4Y2ArtYsdHifnmHrKThXa7V0d7ONCgcIOlu74iC89w
ey1MH6OBzL3XbjOyLEzt3w91VjS4K7LdLVuShe89fPTGD9CA61G4q+s2Fm58
sK59jxm7nts/uYhvYeFz6U/vFijsej21cOnfxL4/o4s85/VpcGRHkfNtARaa
TxCOoM7ON1PUeQ8fCwsiO0o75WmgrRLsxMnDwivrjS5ni9NAWHOvo88yE8kL
BekEDw0iSvIdVBaYGLexwnR5wQR+6Qs7vP/FRIlcsbpV302gn8w6YfONiXIK
Xz7M0E1gdx3txIZPTJxWV2QO1ZhA6e7s483vmPjr68/j61+ZQIKFn53hCBO1
NlkO2caZAE/38LG5ASbq9Z3yOB9sAv5WlGO5PUxslYxO6z1rArbH+Y9KtDLx
2PagR1dp7H7wSLXmKmciPfstI+Y7FSK/8Vi/LWZi9dTP78IDVPh7/pyVbwET
Xx+J3PwdqTDkr3dkKpOJQOVsj42mwqOIjkOtCUz067U/VyBBBT5erUNX7zLR
zslLsnUlu5+jEw8a32bi/hZJLoP3BBy/63og/xoTd97mNhbLJED86cK+u75M
zFdxfrWwg4AYWcd9+7yZ6EWN+9zDxX4+ZdSbrz7HxFMe0jy84xQYy4vd6+/K
xNDFo69vJlLgyVu5PXaWTBzdJOnNw0UBKcZhqow6E1eGZEUPvyZBdYBIj+xO
Jp5cb3qUeZsETqIjznKKTPwR6fraxZ0ET4+5hSlKMTH7TP2NmY0kkBz1r1bd
yMTjC0d74xqNgVRvEBI4OYZJXcOb61gGYDTYEZDtMobXv8v2bPPVgktitg/y
7MZwis8wSXWNFryxGy8tsBxDYf7V+g8faoLh2OzvUuoYflk19SO8QgMMJ7f4
1smM4Ty/Kh/3ohrof3P2Hp0cRR6+xSJ/VAZtzvnTAq6jWKV1b4ZxWAw+ECbp
BsdHca/v3eUary2QcDVuwu3IKKp9nQyYiNoMf3lU7N6ajGLcln+Hl6oFoWK9
077TO0bRO+JedNQBHjDd1rqr9sMI/vgjJbN+ZKrCRvfJrN/pEUy7+Pe/vFIJ
XBP4VTXVaQSDf2y4tiVDEsvK9c+2Hx3BqHUjRtPxUrgVet/J7B3Bb6a2Dp3e
Msgy4e3vUhpB9bnnx12k5PH0YZ/XSl+HMeCKd53o0V0YdG735THPYdTnK/Jc
FaSN1YauHQ7uw9jPNdLK+qSNPGtDJcZPDOPltO/6DFsdvJteXj25bxjJnGr/
VmvpYi5zJ/cnpWEkOWQUjI3p4fghoduzH4ZQ9cEK+/yVRigvqc66ODaEvUcm
1yo6G6Hn9/3qv/uG8PSb194BVUb47+b1nj91Qzgftvn0jUBjFKpbEFlOHcIH
f8SnlkYAd+uMp6xxGMLLdS86/DTIGLNqeTrSegiFF4/MLtiQsbdbjMpnMYS5
UcZGbf+R0cnryPt1xkNYxhTKO1BHxqDMRsVNW4fw7+r2+ty9FKz2exd0T3AI
o5bzfD09KMhD42wTXjuEJaQlulckBe+OG3hu+TuIXtUbenbVUzBXLK9QfGAQ
YwQ+fvXXJHD2YwvXk45BPD8ZeFdkP4EGpVNHJBsGkfvPXqNvbgQ2WkrNSxcP
ovwdtxLteALXScOeZzmDqPKsUiM9m8AjP48l7ng2iDzDEXx7qgkcj75nqHB3
EKW4X9Vt/UygvF1B9Iubgxger5ljvkSgp2LHqFLYINoqvp7LFKDiv3qekJ3e
g/hmUr5hSp2KlHuy9LxTg+iiXHm2kULF684UaTXHQfT4frao6yAVhTgu1Wkc
GMT5k+cGjp+lYhmPtQ5t9yBmiosdFAigosMG9Uwb0iDmTnqErAqn4mpRfjEP
3UFkul78YRhDxWypqaj/VAfxhThTpvg+FQ8p1Szdkh/Eq5Xbnno9oeJvjSSv
pxKDeMfv1SePDCo+MgwYfyUyiHL8saHpeez4TCwtGwQG8Siv7U+pYipO7dtV
z+AZxPuDb2pHyqkYY8Wr+4VjEHd+a4rrr6Sipv27zKV5Bg4PG/5bX0dFhnul
2IafDHS83p0b0UjFy14Po6U/MpAbkt0NWqgoE+C7rMViYP0lvjmVNio2hxw8
v5vBwCd+M7tOtFPRK1J54mgXA4+L1P1oYWvhO9xHzjYx0CX0xAY/ti5/OF5/
pYqBp3zFz9mz7R3S3urGvWbgckLn+3D2/qtzEl6kvWTg9tcJ9h/Y/rOLLmwt
yWRgofBoVQQ7vkMV+2OaUhgonam96FRFxfl6BY7hBwwccz3Ec+kNFR93cHl/
i2Xgx4j3rC52/pSBsQmOSAY6dyXEuuSz68EsOyIYykDR4U/ympnseny81yAb
yEB+K9laUgq7HtNeerreDFwwJ25GJlBx8O/eLLPTDMxVHC7YcIuKV1bKbTvu
xEDmef3APvb5NW8a4Qg9xMDAi4Xftpxj57+t1PuuGTteSonsA0d2/jvuTD6n
MJDRFCZobUlFR509jS3qDDyX5OV6W4edL0lGf1SRgeKWJdf45Nn57l7O+iHF
QBtK/1jjZnZ+tkW3hAQZeLDvqCzXHIFJTrdXyK9loIX2ve3h4wQSHh4X9Fcy
8MVVLSdaB4ExlySt7WcGsDHNcNXd5wTKJkeLZ3YPoPjTWlVXcwKb00/eLm8Z
wMCg2noedn955ROc7TUDOMpawzMrSuCbqj/vpgsH8IgwqSPtPQUPTbrmGN4d
wKD9kdbXLlJw/gtpu0XUAKa32MgHW1MwaU4s1jF8AN2EMrsadCn4cTXdJ8Jn
ALszk76Z/iFjsIKxYaflAAosbP2s4E3G8oqpal1ztr+gx69L95Lx1+E7e1KI
AWzjFZMLlSHjmctTVt7qA+iqrnm0pZuENt1x5zcJDODLo4kP3RRIqPrfh+c2
Lf3oN2G97YWLEXpsjFOpqu7HOM0enVoOI3yebvhKoawfT284T7710BC30mOr
/mb0o+Hpcfs9bQbII2c4/CiiHzt9d4e0SOojq/P2Bha5H39kC4xL39HGrW4G
CXv0+rEuOGPUd6s22iy8Ey9Q7UfjtlMuDWla2C5roBy2vR8NtINEfAs0sSzw
HU12sQ9nwnduSalWxzgZ/UunSvuQqS6lLOurghT/ifc/d/bhjlilfSL9IviN
/1Bk6I4+7K2Ta3j3UhgTUytVBMX78P7e5uycm5twpv2xjyZ/H75QXWV2y1AA
02RtOP0+9+KN18YKRrZLFdzdrdv+pffikqCoQXXwSmhVKbZcLdmLq7g/rF87
Iwv+NTLz8SK9SLX/uad8cQfI2t55KCfQi8Vk1owdtzxcDvca373cgzeS1LmJ
zYqwa0jR6+ZIDzLnavdQ5HdC3PXkmwKJPShqUDKuw6kBxuLrdqXE9mD5szc5
pEsa8KnwEl3tRg/y1dTMOc5pADFmu+Wwfw+2b97f0DepCbNam9LvWfWgZab5
248l2mA9cb1aVLAHb92Y1hlX0AenwqIIw7U9SKjmp3Te1IdzYeNmJ1b24L6x
7LnML/oQIW3YnTLTjQ8o3Ut8WQbwyvn7hHxPN4p/c+SXETWCSo2tGWat3fiZ
d1D4j7cRtKzcc+ZMLXt9WdzxQbMRjKc+nc171Y3JokK9yr7GIDB5ZJXOvW4s
bT68qFsBsPVVaJNNdDcqmJfQg1eTQC48LzrwajdmhZmeMlQhgbHMGuGKi93Y
UP6usMCfBGdc3uwwserG1WcbODy5yeCv+fGT2/5uzFm+tc1BgQxhXMJ512nd
GFm46s1DMzIkpnnqtGqz47/WeedLJBmaJqV2H97cjVLBhwPbOSnQ88qC7+L6
bhxdq1H+RZwCzPBLnfHc3Xjl6JcCM30KzMv02Qz+puNTIju78hwFuOY4t/37
TseOivMafdcosL5uF2vbFB2P2JKu7HhCgR2uN045DtARfZp+eLdTQF2rWCWs
k442BbDq7CQFjFZN/ExrpGMex543j/9QwPKZYeBUKR3rS0tskyUJcLh4ypj3
JR1fW1a6ndMkwMMknlM5k46Vt5XdvWgEhL77Hun5gI5cZqcq15xkz59FWy1i
Y+m4mHbBI9mPgAdX9wgW3qBjfp//S5cIAtKO+Pb3hNDRpbO61+YuAfmyqQ9/
BdCRzvdBPiiFgDdzHfYi3nRs3GfD25JDQEPdP2n903RUUOuYMn1NwKirVfZ/
R+ko6d/gU99GwCetMK/kQ3Q0cvwq2NBHwNyqfM0qM3a8Tlz3p0cJ4Ogbnh+n
0JHnbm/4bvb8zPd8zVsuAzr+qVA52/iFABFf7ZAdGnR05Kr7dH6aABmas8lu
JTpWB+94Rv1NgKrw7TWnpel4gXH/EGmBAIP3b9puitFxE192qcsSAcOU189X
CtLx24CWL4ODPa8nF10J4qXj9GRIwgFOKmz799JmZgUdC1emfmhi6wqbXDWP
P13YSmhomrC1fdEL3okfXWierna0mm3PsTF94uhUFwoNjxFk9v4p51Lf0Me6
kDKb/KXqLwGUluR7Zv1duFqc7kz9RcCE3KNz1e1dePu8c3vjDwLCwxNM9eu7
8I3Z3uMWnwiQZd2VKHjbhQ/eHTMZGCeg3ij2j0JRF/7M1q9yHiTAPTGanpLd
hX0lGpumOwng+X0ja0taF+4y5Y8Oqycg83BEeOzDLqQRQ9dFygkwyw89vuZO
Fx56Tb/4MpeAz3xXtEMiu/CLzba+/ezzizoVtP5PSBfedz1F/hlHQLuUT9WU
VxeKmsa0ml4gwPOKV6LDyS58tEmasuhIgMDwmQsD9l2oq9TmXWZBwMF7rrKN
+7swcW5M1EKegOmfjktA68IAvzWEvCABcftP9JcYdWF5Dimab5HdL9zWN9KV
2fmLj7/+20YBm8DdXyN4u7DIMi8qyoUCf/qo9UsruvBkoFLmiCkFEjXIyb5/
OjGQtnonoUiB4S96B92mOlFnzS2hg1/I4GCvVGRS34ndYzEVT13JsOKNXMzb
t534y2N+pJJMhqciMu5aRZ1os/pczfJWMkx2bd0im9aJ3jnvp953ksCduu4/
rtBObJi1tbq1kwQ8KbxWlwI6EY8EPP6wkgQZi6t3zXp1ojblyu+xfIBPxcvM
CftOFH74uF59yRjOKfyk1hh1Yq+60tyWCCP4vDVjC9dMB3LMrVm70UIfvpht
4xee6EC16769eh/14It/HId8dwcKBF86qx/K1j2XPuwt7ECPOTF6f74ufIs6
WHTnQgc+efVAduUKHfj57+8B6dl2fDmszDA/rwG/h/ddp8y1Ycq0N4h5yME8
b02Q5bs23NOkF9h6cgfM6+p6uvW2YeHNpwJBrrIwf1fKKrKoDZ14E4qWjknD
X/Pf0vSLbZigfNCt8z9xWHzzBB1/teLn3072KYlrYeXjmV/Bv1tQ3GLDf62D
gvi+5Yf0xIcW5Dg4mq30QQgb/349YDLQgoXWiVz3pjdjjM3UizWvWzA1LT5Z
cfVWFN00ciIusAW9VChPvq+TQvWb9fWpi82YYXK5qWxRAYXKamZWfWvGnTkH
asd/KeL8VKXEydFmdDjIGzz4TQkraOWBysi+PnvwM9+QCppx5u8sCm7Gx1bp
e593qaJTwIP4+pXNGE8Sqfrqo4kmGfE18rNN+EihnTfgnSbK99/5ETnZhKJf
nC5sPqKF3zRjzCzqmvCHfcn1ADVtDPwRutQf0YQltin/mY7qYKz7GbePa5pw
pMohdnSlAfrEn7qz928j0jQ3m1s7G6BVnVtlzqdGzF6qbbhfZYBbpR1FvVsa
cZ/yxw32gYaYMXqk/W9UI4ZG1D+7M2yElUdAm0+gEWsdqBf5VEnY/ngoSnS5
AXe1CYto2JBw6J3fhPy3Bhyd/XHyvysk/HUx/7ZJawPu3mju4dNCQpV4yc+X
rzfg2f6s1wVsPtMffUuO9mvAfvDUehtAxt07jiY8dGvA0MHRuKEHZHQpjjMp
pTZg+PqJRvN+Mib2rXzyk6MBNfqlf3bRKJgh/uTX8vd6zD2cJ2PuQMEiN8N9
68bqseBdol+bPwU7f/n8VXxbj/Ws8IWx5xQcNd5wUC+7HvtLhEPPvaHgl4ic
dNOH9VirzD+41ElB7s3vLV0C6nH5bOghid8U3GQfmuV9sh4FH4xY5vEQKJUu
zhliXY881XKfDLYQqPq9zOYWrR5POWjtqJMn0FjHOu+xVj1ODp6TMNMh0PzK
zKpsmXrccuP87yYqgbYNt+zKBOsx0/FVD3GQQLf1yoWNnPXsc1b+UWxHoI91
45r+n3VY/HD6jpQ7gaHJLg7vmHU4K/1+e4QXgbc+cJTMdNRhURcPP8ufwEe7
HvNzYh0Knh/9oB5M4As/PReB3DpMiKohB0UQWIq9ZeKP65DBfzf/9U0C67m9
N6hE1WHZ+Ar611sE9lisO2kQVIdPMr7u33yHQNb9FxV7TrO1NY5q3SPw2xhN
yMa2DnO/VpjtYfPqP7kJD7fdddi65ez5g2zN63Wl2kenDh+Zx+3Zz75epFRs
S9iOOnzpfnUY2Pvt4Cj1jBWqw8FCQf0dtwnU2G1Zn8xVhzkKJwJWRBFIuv1j
a+5MLVJ4Dcu72PHuH4i68Ga8FmsvRivfZ+djJ6HQ3NxVi2s5Y3gOBRB4+mSd
BKOyFlUPyj3kPE+gf76j34e8WpTMIIhMdr2uzi+2zSXVYtthnou04wTGkRJl
uGJq8U3vr+JBdr2fXNcO2vhfLX72YN13M2Hzg4in/K5jtWhJLD1yV2DzhsPa
K0Zmtdjzrn/DKPt8+zPSe/fq1WJ4nWnr/jUETusyQ09ursXilJizUu8oyBFy
ieG7uhZ3XzNXvdZFwXVNIqpX52pQVzlg4iP7/lKwPTiS0l2Dwu8ukHJuU/CX
0OmL9JoapJL8YrIDKVhND+Vf+aoGubbWzbQ7U/Co+Ssjl7s12Gb/UDFEg4KR
sDlpx5Ea/DR45nlZIxmt/u3StjapwbFyo6SfWWSUer27/ZpWDR400vtuGcPm
FfXApSmhGpQIklnz/AAZv8iOnMjqq8awdNcTiez+Kx2f+zVUX41f7p+aPpZB
wvDkdbf4Sqrx9eTF9CPhJNy6hYRn71djwtZckXk9Eu7jS92ualON1268eXBY
FzB3+iTzFaMKa86F21YFGWJgXoj/u6Yq/KL5NeDfNkOknUkUEC6rwqzWzeve
VRjg2LsWkl9iFeZNzlI6/+mjAGNnit6xKvw1qJkac0oPz+OsY8VwJQo+/qjS
x6uN7iIrGm4hYvbXym+PJVXQstbLbM9jxMvXas6fW6+MFC9mG2cQ4n+xmZ55
C4oo3og9F7URpbvXLGCHPPb4XR4/llOB1O3de1rdZZDSv7Ao9/AtdjsGjuc0
C6N4/C/NSt9yrAjn3Cc2sRb4KG6lAZbluCjl+nqHoQD8/dproKFejs+dKsj9
VzdCr0kR5fnXMgzlPfVvQWgzRM1dOBDlUoZLrudfjW2UgL+WPz1sDr1GmaJM
31Mz8tAn+OXpD5USVP2xNza7VhNuVHk8MOMrwbIwf25nYy0w9Px8K+1TMXYR
QsnTxVrwtPnTJZv0Yqx1uf0hNE0bzoZ8tKqUKEbNJWZ5kZcuSOw6tU90uQhT
PzolhDB1gT48RfiMFKETH31oZr8e6OpOqconFiHvkgOpUE4fuL6/570tWIQL
Nx0W/zQYQMkjtxWffr7CHOEz1pbKhnDa7P1vovMVyj/j+LfjliF0Pns3+Tvq
FS6Xgf72A0bw0G6ywn71K5zip0Y0VhjDfl6XoteThdh92/reQWEAjtKJLMGa
QrzcMblW8QyAm+BEQsOVQrQvVxE4toYE6s0s711/CpD2tO7M8WckeOfneOpG
fwEODT733d5MggRZlv1EUQEql0U/+/2VBEvBTPP73gXoycyNGlcnw8udDsTP
AwXIDDdx/nmYDC7DY3p7dxVgms63p+t82HyiM7Zj+fNL3NghoXX2JRkuvTux
zbb5JWpvslPIaifDzjujgoUZL9FKI6rtxycy3P02wuHu+hLFvn7aHC1BAdNH
x39XEi/x1ln/CqYeBf7uGfkqKvUSSxP0t2kfooDDs+HB9tF8/LyixZd5hQKC
h+265N/mY/P0cYb6PQrUcww3hD7MxxDa9ZaQTAoE5B6rGA7IR1dSolHrGwoo
2w290rbJR9PvAoobOigwtuZY1m3tfDx7hTvGgkmBuJLBlE+b8nFhm/2ZiB8U
+C77aptRah4eqdbtY/ATYBlSyPvTPg9tPnelzYoSUDZc8Dttax5GgFoQlxwB
EroFkzaMXPyso5bHo05AxJ2XXXzxuTikFJvHYUjAl2/5FZWHcvHsxYJfn6kE
HDLLz/JZn4vtu2u4ms0JKH2WlyDfmoN1qi5OiYcJEF+Rd3X4eg7qx4mn2tkS
cHnXE/8tZjlYfOB9U8NxNt8cj/WwWpuDd7iVzpmy52PjqNATd1qzsVBhyG7I
mYCksgsHO6OzcV2wrXeYKwFLUy5UfotsXBAWeQRuBJzYbKVjJpCNbtdP9K5n
6woTU8VrXVl4rcxl+6wLAdt8dLfVxmWhKEdKyBcnAi49VRBYYZmFQxmNa//Y
s3mmU3SlsVAWcvi29G+xI8Bwee2vwL4XWLSuY62FNQGPVBanSu6/wHs+isMJ
Bwn4d+zb0KzNC9RIPBr924wAu8ixdjXRFxj1RP2CB8HmudLOqnNDmXjM3+Lj
rD4BWz9Uvcp6lInFuVcO3lVj+xcqTJ86non+/MlCZux6DxNpibLbM3FVbEim
8Fa2f+970U7MDNxwYjTq73q2/ycRwckpGWhfor/vFyfbf7vfhWGnDDTk7r7G
O0cBu8WTbltkMlBUMOKjznsKiB3da37neTpKdisvMusoEHid3YPu6Ribu6R8
4hUFBotV1PkV0rFgs23Y7xQ2HwgKiFzLeo5buZfXhwZSQLStZyIw/xm6ihzN
2yDJtl+o6ys5/wxTy1zvRPKw7RVKmmbVn+GjY965ct/ZfB/xIO9cURquIrL3
dr8mwxbSiSCnslRsNnZy3WRCBv9zFueSg1Ix/GpPLV2WDAOPSI7Dhqno8zWH
v3IVGRL+SJla4VNkP07dVGpIIFL4YaNZbQoeEHOiBmuSwJ81sOra1RScbsu+
Ob6OBAPrm+draCmYq6PJWtEFkHAme9So6QkGZq17Ma0OsNN83NL5UTK+dT5a
LfbOCJTU58LU8x/ihe0BG8RWGwDJprOYX/4hpq1S/TT1UB+sLmd9nEpORJ7I
jnRdVX0Ibna0SL71AA/71bAuWupBn1O7KJ/nfbxlmXhFKEoHgu+kv3yncgeD
R9Z+fPBWA158LKxQs76KzhEFjvFFO6BH67TMFC0cnxTvf9T7UBaWQyQik7TD
UGCrrf5osAxYikYfWSscgsNNR4mbplKwdK91oCkzAEdOwKhinBhYvHQ66WDm
iM4rbmQ5ZXPCKqlVQitdAkBxx07FU1QxZP5cI7rfIQicVgpF8zhsw7Kqddsf
2P0Hn35YdukEbscS1ai7918Ew3DIsfpvPZLo0XkvSSU1HI5kLOQU/5HFnvWZ
BbZ3o0B4rX7UFb6dWOWnpHUlLhpKvjfuQ55dmDuWU5J2OwaiTqSS365QxVpr
21E/2m04bBe6LPJXFZPkTkxUU+Lg8vS/wkymOh5ucP9qYxAP/3Tex60P1kaz
hYxcj7J4mJzL8CK+ayNp1yfPy3r3wWnvczeb4zq48/6Z6VSdBNhfor9DQFsX
edzP//6mkQiFx/bWSzH0cCmxoHRFYSKM7btl2WKsj3PtMwGb1B9Cbdt/15RS
9XFc2/efnuojsBD+1b3sboBvVgetuKqcBLhzdaI3yxAL9N9U389KApUFXZvD
hkaYeW4x7IViMiTKfiHV3zPCvZ9h5clNT8DA0/LuQaox6h6uvhq9MQU0Zlc/
u3kLUOOr03vhQylgxayauDHK3vbaStMnsSlQ9n2m758QCWXLqTyFAk9hn1mw
+XpHEm6UbogcWJcKwVVXEqK+ktDJ5jP15eFUCH/1UM12AxkLo9cv30hIhZUm
n72UNMloOW99wUAqDX5dtZsY8CVjmsollU3uafB5J2jlx5NxzunJhy9ZaWDf
1+d9tYiM8W1Tx5K0nsEN/5gmqR9kfM/JL+wX+Ay0lM7kfFhLQR1dtU4LfAa+
YtFLqTsoOPA0gLpiz3Mo/io5+s+GgvIDj5cY0c/hYIr7lXgvCgbwV5cW0J/D
p4/x5ZLXKCjqz6viYpcOlSo5n7hfUvB0zs4Phinp0NhFuu1QS8Hy8UMpQu/T
ITgF1Z/3UZBPxO/YN8UMON2j3t3/gYJ2+x4KNXhmQNY9Kf9ZNs9kh2JH8qsM
SLMKV1tYTeBiycQN/z8ZQP/4YuvnTez5+ys39aBxJjx6rH2yRpLAJCnlJYWw
TNCyXmUTpsLmAesDpZyNmXA+R2qPoi6BEO3jPcT3Anonkl6VkAm8XZ2g/Org
C1ihuiyjZEYg8/eb91HxL8DUOV4hnD1/q6qwnrgOvQBn/yibamsCg51WHTOW
yAI9vqxD79j803lfQWizaxak9io0fHEgULJtX8f3zCzYtS3Ib8CZQG9O7xuN
37LgvaaIQYYrgdU68USKRjac6d230s6NwI1nyxYD/LPhv46i4Rn2utPT0ZJD
b7Nh3L+P5elCYEE/p7cSZw6Mfzuk3ulI4Ep+OWUu0xzovNs6t+kEgZaUve+H
b+ZA/95Ae2NbAtP8PJ8UdeZA+wt8aX6YwNnsO0djhHJhhXYtmWROoMl4ySb3
o7nAc583aAub7+I3D7dDci6Q/VdODOgT+N6c44bIZC64fQ0QuaJKoHaoDPFT
Pg+UqhZq+WQJvFaye7HpbB6MuH+4HypCoLxU7Pmg33kQGuWapPCPgm+yBoUU
xfOB0+DBabsvFHSp/+IdT8qHDOrWe4FDbN5dEFDxvJoPcccUBf8rpuAJYenI
ofR8SGtRfuH8lIKr1bQ+mDbnw1qv00L60RS0crNNkVj/Evz3tDuW21NwKdhj
KUrtJXQvhAyeNKXg84f/Hftz+CUQn67ard1Jwd+dKUL0hJfwx6TISWuejAkG
n26ESRWAr4+h6d5gMgZZfrlgQS2AWFfx5+4OZDxx9ttxMbcCEHrin3oLyCiT
PK1WmFkA0j97K9cskDCfc4ExrloIedbaNiNuJLwjtliTe6gQ8Mf+4Sggoa/m
ck6gTyGEXR0UtdlMQkO3laEbSwth+uTZg/euAzY1rVWkwCuI8VDoq5Yzxuxx
/k3rHF+BIun7DfsWI7y9sH6JEfoK1NR1RY+eNUIrlU308/WvQF7LIf6/bEMc
v701MGVfEXD0xQZuEjHAv9YqzRx2xUCTezUelqmDI167XrX+VwyxgVZfH2np
YOUNtaSE5GIIybn32atSGyPKtbxVJ4ohUVUy25muhYLbjUUdTpeAWutUnvKU
Biq/338a/Uth/6bqjVHVu/C4jxfv5Xtl8CDXw8r4x1asTQ04v6qoDBiaQTGM
QVFU7A4diOopA8XF4k27akXwl9q95w8Fy0HyiUX+uTubMOb7a8rr2HJ4XpBq
L7CfBytOrwyajX4DNo82LLLEZozFHeM/n46oAH1lz6aTUtIQfjv50PSzCrg4
mXi0Ul4GPmHG64C6CpjG1JcyO2WhWLz82nUuhGanmC0TWnJgMTwm/TwUofTB
bmJcRwkqszblekElqDLzs8r+U4MLxANHTYtK8Pry1vy/X2qwY2ib0PyJSpjZ
9aTd/Zw6RPHKXbpyuRJiWPv4k45pgM0pPbOYt5XQpSAy+UtRC37sOPE+y6AK
UgI+UwoTdMH/GeFVY14FPlMOXJq8esAho/B38HgVOL+RXTgcqAcbJGf5eYOr
YJxTe8HGSh/UxSK1TtZWgVm8wqnOfwZQ9sATr/RWQZDO5eZUJ0MgRI7suf++
CgJavvz5UG8IlkISx+t5qqHxy+ianEgjuLi+OFxmXzVY8+YoxS8Zw1L0w3WG
J6qhIuqVkZ01QARfSMJhz2roLDQ6cjoXIH6NeXZobDXkh8pzP1ciQenK8W5m
bzUMrTZ72d1EAlJow/H599Ww6YNZ1ebvJGjkyPmwfr4aAiRJwecEycBY9Fsw
Fq0B6vTJm+a2ZPj7m1/68YkaOPQ4Ouo+gwyhvjPZrzxr4Faw9Dej32TgnRvQ
bg2ugZsJxX+mBNnz4XSq2cLTGkgOF7A1NaNAmteNno2vaiBwXnzitzObL76f
O6FYVwPFNQ4h6ZcoYPhFz9v2Qw20io/h0gsK1J7e/s9rvgZiDpZOpVZSYN9H
rojra2pBv4fTmOilQJ/7p/VPRGvBDnNeD01R4MT7jgclSrVwUGzx9JkFCrx3
KZLuMKwFl5ezJ2f5CDg3kZjzfl8tFJtu6fLeRsAVpmuVkFct7LKdiLAwIIDH
fu9elZBaaGuK3p29m4DbI6q91LhaOKZHd/xnSYCInbC9XWot+G88qgcOBDwZ
XJi68KoWNj+0N/c5TYC8Lcv7Zl0tbLDepfTwAgEv++v/Pe2rBTEXtXOFQQTo
W2VHlH2ohTKvt0VvQgmo7okVoM/Xwg2upezi6wSYHfZL/LimDrYHdfOlRBNA
77KTWSFWBz+XipOCYgk4eoCSK6JcBwbhj4F2l4CJdjldVaM6+BOWNM4RT8CZ
ffzVpvvroODbxugstp5tmd5rb18H8xyvzWlsfclsoNfXqw5E9s/qdLHtuZre
2seE1EHleISX+f+/J9B3ZITF1sGAPbfVYgwBCcO3fvin1IFYnmdlVSQBTu/n
dc+9rIMk4v70g6sEKP1wDHGuqoOnFBZEXGH7+9PcZNNVx75/htdc82fz0UrN
jftZddBbUFH6yIuA6/yPjxI/6+DNAH95gzub5zavTtVdUQ8WB09f4znB5hdJ
z88qG+rhSrtDkj2b594rDmhIS9ZDO79+VJspAfma5EsiavXA/aP50yH2eQUa
v6jlJ9fDHxGq8w8VAqi7BflXHqwH98bg3OfbCVh36NKReYd6qO04GuMrQECK
6/7348H1kMT5R83tOwVOe5bsHLhd////4T26NkIBzQAJv7Yn9TAp7fy1rpkC
jVHT3KWV9TDguJn38VM278YfO5DTWQ/kAzpjOtFsHnpSm/CUWQ9GAQIvZnwp
8KMwXiGaowFk1v1NoptSoOzt8vlQgQbgfSkmOr+TAuENJ8v8JBpgO3OlKiFE
gc1D+nudSA0QIKRmZDFGBmPOsTM6wQ1w9kyjkOspMvDw7S5Svt0AzTzLMiN7
yEAXerko+aQBRlVP8UYokMFVISyGr7IB/i7mP/F6T4KoA3L5rOUGeF4o+F+/
FQmsjt6e71vfCOH5v2y51Egg4fKH1Lq9EZQopzI8eUlQ6NfSVQyNYGOxmn+j
L8BgkufMzSuNkNP6ZOHPDmNIyxgwCLnVCE3HNOKfdxjBuQJyuG9yIzzyeJf3
3dcIVtQLCjliI2QKpR84WWUI8l9LtLWXG6G5SKX2LM0A/Aw4ApmXm2B2b3JO
xyZdOEFlXb8a0wTHzfZ6B2fpAG1f9X3FpCboXbpnIk3WgU324UU+b5tAqDbP
+dApbfZzi+cnz78m+Fx7nJuZowmfmgROqgU0w9sPj1fI86nBCRtJq9ALLbDa
/Jv37qtSYOLI6SoX1gIX8iSTaWGSoHx64kJrXAuQCgwkrwRLwELQs1jhghbw
qb25NfHnVkhIVmh78aMFzBq7LxnXbgL6ezVq99lW+Nt7ZmCW/6exyUWKuszJ
NpC/R1uXVbgVOV3DN28LaANY8UrZeUocKyzr/wlFtsGN4+FvqqMlUFfTrIE7
uw0+Bd84a1YhhYozB+0+f28Du28RiQ6CcrjuvGNEgV87HBLb/dMvZBc2O6R6
ZF1vhz6PiNs0qipeO/DuQNqDdohMvcW9WK+KHKqnxOLL28FfTcypu0kNp795
5Qcst0Nn5qirZ60G9p0JHiRd64BnAw95Pl/TwTi7atRL6AAf+zmKwYIOWphz
PVPP7IBt/BtjLM/qYqPSdU+Zlg54Et65pnWfHh6fM+UM5+6E0EeTNJ1lfTT8
OuXDIdAJwik7nHVOGqDouxsfLol0AkPa27+3wwD7elpaLyp0wn2BVqX+REO0
eGVx331vJ6yLLTI6td0Yd2b/WDN5uBMWA6ianZeMkS8t9pKDXSfsMwj5kDtg
jI13uh1tz3aCMs+hS1U3AckXrJX33uoEPnenbkdPEkp4zCc13O+E3R8mN5fe
J+GS04MN1CedIJhaWKCHJCw7NPTL8CV7XebX4ZK1ZNRQt6/a2d0JgTHjnqcS
yVjwnSwoOtQJt5+JNL18TUa1HBnXVROdoJpduKA5QMZd8p94hqc7wXNDK/+H
jRTMfdd6tOFvJ2RljV4X3EVBldS87ALOLtCg5m/2NaOgkvjFAzc2dsFv25iF
gcsUfDFk/dRHtAuSXSlq/fcpqPBAf9ZeqgvSP2gAdz4F5TZxJGird0FFapve
nxEKSvPeHJs42AV/TX485GPPy08bzqp12HaB9A1HSgiFzQNXD4SVOXZBplms
jKQlgds5hOViz3fBxb3PuZg+bF55O+9/KaALVDcuDCyGEbgtaKjZPaQL7mtY
RFHjCBT79eSccWwXzD96F2qWTWBiYVilwoMuSGEc7+IpJXDLebeNQildkCSU
KPKtmsCEnXtcODK7QHgw8PefVgI3f1Eq/pzfBeOxy1uU+9jzfuY6nv7SLvar
rUo/fJRAIfefttWVXSAWwtjO+Z7AuzI9WTmNXXDd/8TdZ18IFBwvXkzo7IK1
yZEnz00TGJf8wCJ8oAuuzR24YPebwA3HL6V4Mtn61c87ngtsnhK1nzk61QVO
8zGF6UsErh8gm9B+sP2drarnWkHFmHsy99Xmu2BiQbkjgpOK/Ie5P27loMMj
ueZhlZVUjBL4pM/DQ4dWaUPev+z1te2tUTPr6dAstMHvM9s+8mbe6OhmOihr
kXZzclBxzZ441ebtdFAaT800XiTw+uqLoUVydDAtudDx5A+B3LXWPU920WEk
seK3/ByBESH6O6J06FDVOenR/53AVbDN3w/oMLx2Y2j2RwLD/y03OZnSgfKc
lpQxzuatsnGx/RZ08BhS2Nk6SGCoX91ZPWs6CEXvTttMJ3CFVgbK2NPhp0e3
/81GNh9OR24QcKeD74FZRfkKApfzzjovnKPDyWvSlG8FBF4+e6DovS8d3MX/
sxh9zuZZRQ1u+mU6BKoKf59/QODCs/kXGTF0uPz2/p38/wgMdB76dyeeDnLF
jLUW5wj8I1Gx/0oSHVTW886Jsvnv98Ow6SO5dPiS50o1NiDQ19aNSi6mQzW3
6aH78gTOCe+JV66gQ2hak5SkEIEzsev0V7bTgdGYXNf8mYLD1ZJ+CX10oCe8
2bquh4L1M5qvVMbo4DaTiU7lFEw8cmynzQ863KrptzNh8z1pS4ZUzsZu8Dh1
hiqyiYKKZmwqE+uGgic5UuvmyLgpqP1Rv3Q3bDfNtpbsJeOH4VlhTq1uuBok
/OR5HBljnpDXWlt3w6ht+J0TK8no32W5+4t9N3CdVP3iNUJCR86TV0NOdoPW
l0ybvGISarrELGcFdEO1W2dcKZu/huSGZjgedUNK7pU75wIB5fN8hl8wu2Fx
X5Zs6U1D3Mi8toX0sRsiGft0z8oZ4oLAQ6ven92gFJxWWVNlgO3eVZ3LnD2w
Lnjzu1PT+nhRe12dpWwP1Fq+UdpJ1cPqt+k5S6d6oOnt+GvnXC083jp4+dBM
Dxymr9nyPkoJ+/4pJONCDwhb3au9ck0R96sEoDJXL1S2PFdjBSugccxmDm6h
XnBSkDyt7CWHEgcsQ8q1e4EiqDFuRJHGie62MJnAXog42HLO5bIQnhqqvP6L
ow/2P1YkXuzkhfG1ApnOa/qgcfsvyvMr6+CooX1T54Y+EDlSdC3FfQOYPV5c
kyXVB2fH5/xbXwmBsr3+TXtqHzywaeTMpIjD9/HC6MZrbPsLQXfTb8rBxU/P
4xLX9UNP7nLvjkoNiGHqxPkK98P9m307ldQ0IaOvMfaQeD88Lfj98FSKJgxW
f7rNu7MfHtuYF4Vd0QLjhztvBe7rh12bRBZK1HTY7+Him0ej+kFrzbm/L0/r
w3aK6U3tu/1Qb/yu6GKbPujqDkRufNQPa97WkbR2GcBpmb83mrP62fwX7Pfg
uwF0/DO6rt/SD4vOenvinY0gIacuXJR3AKquiPA0seeVl6lW4b82DED2CZtS
igYJmh98CKNvGQBv0okxiWMk+Hd1TVikwgA4KYXqr8okgeOJfSF/dw/AMdUt
3nuMyBBoORrcd2AASq5wral2IMNdM8/gApsByLiq//ZuGBnqtWOvnD45AJHR
VUg0kEFxfe9/g9cGYHn2t1MmjQLEKrf/im8NwN239PRuF/b8t/DrUtz9ATgS
fdLLIpQCMR9ELpmlD8ALsbIknXIKzKBdYFn9ABgOzt/NlyGAr/hrQHz7ADxo
urpqnxEBO7IvB3j3DUC/OGmV5hECbBKe+Cu+Z9sHWLSOsvngjdekb+IqBpw/
92X+Ti8BpMFnjhLrGBDqU1/M8YmAWsLd/LkwAyTqNemxiwS0CH+SLJBjwLXQ
nhRxKSrsD87i01VlgNW+cJ0tGlSgfzzz+60uAywjy8e0CCoMvvne2rSHAUp8
Wce7HahwYsfLEotDDDj2PAUOn6PC+C3vp71HGdDUcuLATCAV3P5oRB9zZsCO
rZW7CiOo8NFpzo/lwQCR+IM342KpcKa12MndhwFu7TslYh9S4YeW/76vlxhA
1pB6k5tGBZ9kPd0LVxmgqz+n/TmbCvM8C1J/ohmwYFnrQXtFhUveb/ivxDPg
KYNDv7KMChzD/81zJTNg0Uvumk0lFcJNYCIynQFO//mS1tdRgTuPo10gnwGB
IWl2k41UiBSpLo0vZcDaa/Ej/S1UWBcalrq1igENV4XpH9uoEPeZGvO0iQFC
zTesRTuoIHxkdYA8nQGxz6kPT7F1YkWDc+4gAyJkYnr726kgLn9jv+YEA/zT
31Bc2fZPY830yj4z4OfdDumN7P1lF9bKkGYZYE4fwdEGKmS4tK2r/8eAeyvC
XFtqqKDcHvNn76pB8KgwPzNQQYV8nQOTXfyD8G5QTnv1aypopmzosBYehLOP
2lSPFFChlLf79Yj4IGTNq/bXvaCCoc/dNGe5QXDlrCqweUqFypEjtz7uGoR9
OYvW6x5QgTDdHOipOwifA00dPsRQoT5/wGWONAgxPsdPT4ZRwUw00SJozyCk
e50UW+1PhUNft8peOzoI7v3iKmXHqdBnNbqe33kQ1ENJK/ZbUOFoZfLfOI9B
+M2z23UNiQqOd6Q6ky4NwviNUf2/4lSY/DdRJnN1EIpaHvur8VPhpNuzZy+i
B+GS1of+O38J8NKTDypOGoTaiQ2jI3Q2Dz796GqYPghJXnit4S0B/nxZB6rz
BuHiQKMtM53N32MqO9orByE4Zao3NYCAmKsaXe/GByGZkB2NEyRg4/fZco/P
g+AzPbNLeJ4C8TbFz3/ODMJDX5MD9CEKPFbSu7TINQQcUrV2f59QILvLWE5I
bghKfMSmVaUo0MlB+blm1xDIfUwWm+CkwNwuk/Il7SHY/Cjtxc9xNm/F7LWY
og3BD+6HWxRSyNBpZuNX7jYE/BfMNXcIk2G25nyD4/MhiPMcjJRuABCZ8Ym1
yh2Cog7NUbuLAEZS/sf2Fg/BYJTcpUtSABHBl79r1g+BFqPRKCjAGESMbm7m
eT8ESW3dkl2iRmBYnOaeKzsMJjeaDZpV9MHhXbpaqsowSISmfZtp0YOrm7IW
7msNA2etyLLeKT1o9355K8RkGES7p9IUUnTBYVdFiaXrMBw+ZVGxuFoHwjP6
uRfShkFf2s2rKkcDWhJ5M0xlRmBrxV/Z8lUKcLlpz5FNyiNgFDF/L3GrPKjP
X+dkaYzA/NaXXYXqcpBwhPt4IDEChaQIzQI7WXAR4NqY4zQCN08LBhdnSMLS
1cWgjSkjsJ9ZkbffYhOon/9hMbJtFOaeF96Xk+bCd8m7FjNlR6GjZt3Fv9+4
MaH93AtflVEQOHMif13ZWlxW+solYDQKXaRZjernG7D1/cfXFLtRkJmRMVLX
2IKudhPSGYmjcGpu4/WYDTKYYNr323vzGAxZnH7z1VgNiz+a3P64fQwMxjeG
fy5Rw56bRfIO8mPg+nj9/G5VdRTovGu7T28MToZQszdu18BrNofL5Y6NAdXX
eM35WU30PdV5eThpDOyf3ub8F6iLd9eSNh9OH4PRGTVLiSldLMjJy2vKG4Od
Vmr33C318NvPGGZx5Ri4jSrIH1TUR9fAfZTY8TEozJT4rtZigC9M3nFKCzJh
3uY/sB41xtfC2yxObGZCucKWEElDwMYPlg8fiDGBPjamNJwA+P5GrYaADBOU
W5XHbsqRULI91WVRkwk/7L337uwnoWryUL6uHhPG467a5q0go7GX4OIFIya4
6X7cmKRERruNYfc+mTBhtD6iDf8jY4KVU32/FRMYVouzM6IUTJdL3Ch4jAlv
pRPGq0gULJ7vOrHfngna1+fOzrpSsCeR/LvWnQmUPZWuYbkUFBiTkC/wZ0Jb
kPBbFV02b+Tb+Hy9xITqu48urrIlcGfI7Ur5ECbUbvA21Q8g0Fyawzb5BhM2
b0iZKykh8Jr72I2oRCYoBawr+apMRTexUpMrSUzwc/QwrKFRkdZxe4X3UyYI
Nu9pWeVARS4dSoD1Cyb8OjT7s+M2FUNXPzspVcaEf9d/fj79mYqOZf/JCFUw
wfLQJaWHHCZIOmfF5K5mgtYOg3ZNIRNc7uW2+drEhB7OnUVPDU3w0rPTpqUM
JkTZfq23DzfBY7bEyqwRJnyUvvSo664J6vNvxccsJojI7z/yIs0E//i0aYd9
ZMdzrjj4VrUJDsg/n774lQmVbjdiHnaaYOnw5dyTP5lQsCRQyD9qgr5U1R37
/zCB27wuU/q3CR6Z5xknLbLrJ7FGs4GThprZrMcaK1jAfGZL6+Sn4SaHMtsd
q1hQbxHVZCxCwxnBO0Jb1rDgsuxk7kYpGtIbPLrW8rOgeEX5171KNCwIokYv
CbBApVMx5JMGDb0m5rgmRViwYnNqvDVBQ4v77ZV9W1mg8UiCf4cZDXfuTb/U
JMGC4NfObbYHaLhu+YruGxkWqGnOTU0foeHXApvZXHkWBBmqB/48SsNWN7X8
FGUWlHKUJx+xp2G2KO+Zu6osuEti+W13puHN9nG5a5osmEwT2GrhRsPToeUT
AbosyCyZTpo8SUMz7bvJZwxZsMXSVIx5moYKn84csyexgHL1Vjn5DA15kkw2
H6Ky4I3qreI1Z2k4dVC8m7qbxe63E3t12bph1e8YHXMWHFkf9LaNff3z1x1m
igdYUJ3LONDsQcOIsxmrt1my4JDDb5Od7P1dJUOq19uwYOnJUu8fdxpSe20v
c9qx89WO01JxpaHMDXX9OXsWXP0396zRkYYrjdb++uDMgrUZyv6tx2k4/mPi
5aA7C7x753n0bGlYnfbmbJsHC0Zrat+ss6Rhis09hUpPFlwXiFzYt5+GwXzn
3hVcYIGw92vl36Y0dKikpTzzY8G3C1KFvGQags/24wlBLDjlOzF1XY+G4vLz
IjevsED9n4e0txoNR25l3va6xoKGm4fNrm2n4Rsi1Nz5Jgsie3p3vhKi4aPf
R3msbrFg72jo0r61NDxqzxdscJ8FX5ojo5tnTfCb+X9qYQ9ZkCIbLp36wQTD
9L+NNyezALZWWXYxTDBbqNPkaAY73ie/Pqi+MUHySvLvlGwWFJZsr3HONsG+
Hy8zPuazzyM4Xfz7Q3Z/tNxZG/CaBT6Rk0MbA0zw7muut5VvWSAzwPqU7WaC
8ukXz/FUs/N7g5VPD5vgoVDrrvvNLBAXeZWYpmSCabpi94uHWCCruIJHtIeK
ujuidi+NsWDnhoOkF2+o2Ca4+Mdkkr3+1C39cRoVf30btev9wgJpf5nql95U
3PPsqdTsIguIfUp8mdxU/LZBMVdNYhycM+nHGtk8GbqcaB8gMw7VTx5Erp6j
4OavazdUyY9DzeoKk9fdbF5s/HrhgNo4mCXq2YbcouCdyy/1PCnj8FTWy+UN
BwV1P+vWZbuMw3TStZbFZhK2DmT6zp4ch8Q+7jDRp2werBeVNzw7DsfM0+0r
/UkYmfIvsuXiOFyxlTmQI0PCYevKA58ixqGfz7XW+ZsxhtSaDstljoON3PIB
moAhvr9ru7gjZxzUtj47a15igGauHuI7Xo4D38WRuRfHDXDT6lsOMq/HYb8B
+gdl6GOGad+kRNM4aNS8rsnV1sPOZpevWz6OQ0R/xMH/dLRRoitkaa3CBBif
iQ4+VboLK0fKJX5kTMCm1NZBl5kV+CXHQ2MoewK6Q6y5WJsW/9dwmUdTuX9h
vGiQkMwV6kbJfBKS6jyRDOelq65UupJSugghCV1JJDcVlYRE11zImNKvm6k0
GEOFFM5538OZchKZf+fPZ+29vs/zWXuv71r7xYq/V1m/ejwIL6/m2mOWYy8C
1MO806oGMX3JJcjPrP+Fhpt5pW3jIMx+mLSolAjpMd+qiExqECoRg6Xe9nIg
BiuC965nYrdtefbltPUIKTt+ZbsOEwZi6cum/LWQFaWYtsGAiVa1ZSpzVhsw
rXGmZtaEicYewr+Ao40iD2Oph7uY2LHIPFZ7kz5kydJM8eNMDFjNTH/5sBFd
7OL35f8ykWSv3rVGwgxVwvGO0Vwm9ka+OLzN3wwp0/hi/IgJ6YP7Oj9/NIOr
bCuvvJyJxIUXq29mbwFz83eZigYmhMJvbR3mWzESQ9tTQTHxl19bygaCjvYb
IQd/cpiISq4+kFlAR3nKS3eT70y4+8jpRC0BQoocAyp+MfHgRN2d8AZgttP/
ZsUSFvYfjB+XTd0BqXUlnRW6LBQa9bMTpy3AN5j48tOQhXWCC+32WpZoMbMg
TYxZSOtpeluyxxKJ9m1jFdtYqN0czgnNtsSKoBHlSgcWShwXZk3biu6xuo0u
lX4sTMUIJv6MsIJE07mjY4EsBCUWqSeK7pfhrhov0xAWHBdcLfR+Y4XC4T1h
lRdYeJOl9UZSbheM5QLSKhNYeEn/2Pk9fRcs3Ev7KstYGPHy9NPItcaoQ6pz
0RMWlAvCn3jVWyPH/FJzdjULq40nWIf7rSGp4PziVh0L3WHiZx1W2qD91cS9
gA8sXOEmuO2ItcFRPQtXgx8sHN4Xl+ftZAuFFTqd68ZZeL85MSPYxxavFso7
qE2xEGtY4a1/yRY6X5nbpMRJfIwpOZteagthQqzqsBwJ1wf1+deW2uHieEtP
thEJD8ulYsWFdjBmVv1xz5TEawcxg9CXdiBbM9/dMidx4SLxdaTdDoyCwOoo
SxLlxj/MqDE7yLkqp7rvJUG/LTXBNWeg3m6e/EFnEt1dlkGrCQaCTYfiHF1I
bDnD851zYaB7WXUojpKQSg4733iOgQe1h13UAkjo9y6PiSpjwKnYpl0hmMTB
JPPQ9TUMLEqjMaRCSST2GluHNDPgdUbMfCqSBGUlrqvNZsBoQ86KzwkkDggt
PjYoE2AqXE9ovU2iQ45vyFpLIGl+yJLGuyS4vzZJV+gTmOy2m6jMJKEiuG3l
aUmgLp736VYJifywwrOqJwnolPta91eQmBkIbQ0/TSCxW1Cm/4xEUB1748VQ
Ake0hNde1ZKwy40MPP8PgUaHwGm51yTumppKBt0kYBg0+pfbOxHvbm2l5akE
Zl+OWf36QGJfT+uSHfkEjlNnS60+iebh+r20vZjAe+mJ1Qm9ovoudSfpSgLG
xqHxX76RaDLz2vO9mkCqy9SkNotEfaSJbHgNAbHI8JPBQyT+5RmOP35FwCt3
prOWJ8pb5OR7/R0Bs9G5x4fGSGjR/csYHQQyVkaq502SaHZ+tn/DJwKLLcSu
js6S2KzWYlbSQ8DXM2pihziF6JEf9aw+Al3xCzzjF1OgvuV4v+onsL08uuPz
UgpkTOq9P5gEsroXWa6XpfCU/+R9PElAan5scYAChZtBy33OsAkEai1R+0+F
gjBnSCA5TKDbIS5uqRqFEa2HTbs5BCyDlv7a/xuFO9fIMAsugfyUq8ez1lFY
Z/t7wKBIy9ZIf/iuTcHrXJW2CY9ACHVtx3YDCswqWdXNIv1VWrboihEF1WOb
6odE/dbGCau6TCnEXqm95yDSRS5yV9ZuFflf37numMhPKfLmmC8oTF9R+6Qj
ynM+V8GjeieFH3O3jLNFeZlNt9sW21J4VPb6abuIx35UCU72FNyO51FlIt6y
lcmPMhwpRCZP0u0GCKy0WLGS50Qh48Bui5tfCVz0TLm85SAFs9kp/8ReAkPx
q35Gu1JI+rF6j81nAo7laUfb3Sk8PJd0vLSTQFW3Wqv6CQocn3GjjjYCq+ff
3+7tJeKXTKQXNhGI0Vrz8ImvyL/spAz9DQG+Q6bKgkAKReV62pfrCewLWhvj
eJaCyhJzpSv/EdCs0XQfihDxpvdeflpO4CqV3WxyiUKx3kH1oSICP6S1tl2M
pdBuyCr4kEeg1kVbeVUCBV7qpdYe0X5qRxZc8rxNoTRO98LkLQI3cnWFZXcp
yEfP7e2KJ+A2qt9k/4BCZU/0rdd/E3i1stj8bg4F/wcH1PqCCRhY0PJYBRTy
6x7OlPkSmI43ivq7jELiz/sz910JpGht3vK4nsKR8+y0WDMCbxyck9mNFHb4
ma/8ZEDgV+CZ8TVNFCRVE27yNEV8L8sqEjop+IyvT/eRFe3DQZpRIEnhOf/O
irdMBmLitHVNJdg4N5DgHhbFQMVj2zhfKTZWZffqegczwOzyHMqRZcP8lkWi
9l8MWGjk5CqvYINW5emqsJuB6eq1mhPabFyWXCdfosjAad4qtecEG5O04qmI
NDtkyG8NH/2dDRmvuT9TrtqheYtLj54TG+8Cnk/+E24HvZjku/f+ZMNygiYz
fkj0P6orKkWcYuPpepNzUyp2+NNRZpnldTaKej7Hb7pqC9uyefMb29lYE1F2
f94hG9g8f9nypIsNA/HxOldbG1g3XEjP7WZDfm6kItvEBlYf5227PMBG9KBf
0vgyG1hMzTtrLWRj7H6reVGdNcx3zufVLx9CqsJO7f9pWUP3w/zPNY5DIDcf
2z/JtILMD7GS6uYhfBj2b1OwscSGDPnX3K/DSLYqaZ8J24LCBqkp9uAwaMXs
pgP7tsCIs9CQRQ1D3idAqsVgC7aa/kr6IhjGYUbCLpkBM+x+33uieW4Y+vm+
0n12Zgj6lb3o8WoOiv9WaRSqb0aNo5l1oBsHVtaMSfNvxrAO3hjqd4wDoUJl
1pH/GeNtqk6RtycHN+Q3ITfFGB2kqpKHHwe2J09X39lnDHb4fNIpggOe2+MB
iaZNkMl/G216n4MDtJt1FrVGcJnv2jDRx8F/BxSzE1/RkLN+dLh/gIPZafU1
KXk0CIl/ZN+SHMzt3e5WF0dDXNLTQyl8Dk4pcraH/U5Dta6S0HyWg9RzBZ3z
Kwyh6tyiHq7GRcGC881vefroK7AImT3ERZt51sq5BB3otH66R7pxMV4vnxd+
WAfBP/3qmo9xMeRV1bNNVwcyO9Jl7ntzoWSf2nGpQRvonMxCGBfSYknatJkN
yJgra7uQwkWKUsS27hAtHHNaryv+mQs97xPLojM04VG2z3rHFy7U6AY/vU5r
4oRctPv5fi4eOi8U3LXUxMnWwTvjQ1xc99HQb2dpwNc+cwF3kov8f8+IZxtq
INRKta9DlQeVvS9CU1p/Q6KxXELOER5GJcQ6cv9Rx62bFo8GPXiYNcrMKqar
47bQ//Wav3iIsjkYvVmohuTHLTMpp3kYKVFg1buoIV0v3uv6RR46Phoq129U
RYGmhFVIFg/JW6Jya8dWoEZhdsyOzcP5vJn9wo+KSHRujqRzeaCUvQo77ynC
IzldatN3HrbVPz+g6KEICVWsVf3FQxHN7VDuiAIcNS448Bfzkad579rC5Qro
2yiWlajFh/pzY1+NI3KY3r1oT88JPrZaeTrQzsqg+UZXT4sXH00aU6dKlWWQ
0Z5zot6Xj3MJOQMNVdLY6WwTXhjMx1XDxZWp01KIc43NjYjhw/T9O5evcUux
wkdyViOHD6NHra65LyVgekXmoQ+LD3+3xwYaseI4Gq72q2uIj8m8lfoyhuK4
5qe3y4Iveu/GCVpolxiofYyviuN8vAl8k9e0XgzJa2Pk/5MQQBjd1qvfNA8T
1TNhy/UE6Bz3FT92eJr+nM+1rwwQYM72mWvFGSGd3T91d81ZAUZ19Gx8ekfo
Cp2SVFyYAHe2p1bk7xyhn6reEOl2SYClBQjMk/9OV4/1qJBIEqDCqb/lQgCH
HvFbr9qhpwKsGla41mswQH+kwPFq+J8AGpHos1nST/+0ePKJYa0AVkcDstwb
v9JpfOW9C94J4P3zSGS1aQ/927M/Ygp7BdizcDKkX7WdLlV09INyvwDknern
VHEL3Szz9JqLLAEyM8Sblmi9oydcvv7MmS/ApRPaUXtVaukvQtMX1wgFyG64
+9Bbo5o+fKrQSXdcgLYaZvt7pVK6kvvzzNtTAtCi75/dpPSAbun0jj83J4Bs
/nbJo+k12/8P7Vfh2A==
        "]]},
      Annotation[#, "Charting`Private`Tag$95469#1"]& ]}, {}, {}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{-0.999999991231872, 0},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, 
     Charting`ScaledFrameTicks[{Identity, Identity}]}, {Automatic, 
     Charting`ScaledFrameTicks[{Identity, Identity}]}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImagePadding->All,
  Method->{
   "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> 
    AbsolutePointSize[6], "ScalingFunctions" -> None, 
    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& )}},
  PlotRange->{All, All},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{{3.7867907261346955`*^9, 3.786790733835045*^9}},
 CellLabel->"Out[5]=",ExpressionUUID->"3a4cbae8-de6b-4495-afe8-9f46975f8545"]
}, Open  ]]
}, Open  ]]
}, Open  ]]
},
WindowSize->{1264, 637},
WindowMargins->{{-8, Automatic}, {Automatic, 0}},
CellContext->Notebook,
FrontEndVersion->"11.3 for Microsoft Windows (64-bit) (2018\:5e743\:670828\
\:65e5)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[580, 22, 181, 3, 96, "Title",ExpressionUUID->"ff435bba-f38c-48e1-b942-dd3a466cd22d"],
Cell[CellGroupData[{
Cell[786, 29, 298, 8, 67, "Section",ExpressionUUID->"bd7674ed-f927-4b5f-b63e-c348bb7f9e14"],
Cell[1087, 39, 5568, 143, 383, "Input",ExpressionUUID->"95fe7dfb-b3bf-4409-bdae-67006a018242"]
}, Open  ]],
Cell[CellGroupData[{
Cell[6692, 187, 340, 6, 67, "Section",ExpressionUUID->"01d501dd-f91e-4e11-8a01-26f29163aa84"],
Cell[7035, 195, 4650, 131, 384, "Input",ExpressionUUID->"7ba51f49-8c36-4982-ba29-4478306f1160"],
Cell[11688, 328, 3219, 81, 272, "Input",ExpressionUUID->"a9bbe345-7e2b-4c41-a983-aed52bf87c43"]
}, Open  ]],
Cell[CellGroupData[{
Cell[14944, 414, 207, 3, 67, "Section",ExpressionUUID->"4782db9a-ab4c-4f03-8bda-323eb463de58"],
Cell[15154, 419, 6047, 152, 519, "Code",ExpressionUUID->"26bc0383-1a0c-4855-81ef-2edf548e40e2"],
Cell[CellGroupData[{
Cell[21226, 575, 317, 7, 28, "Input",ExpressionUUID->"589af2ad-1f20-4e2f-903f-8a49259e5485"],
Cell[21546, 584, 182, 3, 32, "Output",ExpressionUUID->"8f55ef64-b002-465d-ac9f-42908594fdf1"]
}, Open  ]],
Cell[21743, 590, 320, 5, 34, "Text",ExpressionUUID->"4e85c11b-8c76-4da7-8997-af285773c346"],
Cell[22066, 597, 3288, 92, 123, "Code",ExpressionUUID->"117e7dd2-f870-4b7a-80c5-57a9e9773ab0"],
Cell[CellGroupData[{
Cell[25379, 693, 200, 4, 28, "Input",ExpressionUUID->"f732ff2b-9340-478f-b841-774fbc7a375f"],
Cell[25582, 699, 32734, 557, 218, "Output",ExpressionUUID->"3a4cbae8-de6b-4495-afe8-9f46975f8545"]
}, Open  ]]
}, Open  ]]
}, Open  ]]
}
]
*)

